1! { dg-do compile } 2! { dg-options "-fno-range-check -Wconversion" } 3! PR fortran/27997 4! 5! Range check on array-constructors with typespec. 6 7PROGRAM test 8 IMPLICIT NONE 9 10 INTEGER(KIND=4) :: arr(1) 11 arr = (/ INTEGER(KIND=4) :: HUGE(0_8) /) ! { dg-warning "conversion from" } 12END PROGRAM test 13