PR inline-asm/84742
[official-gcc.git] / gcc / testsuite / gfortran.dg / array_constructor_type_17.f03
blob6e009e12547b6e1de2f3e16ce0c49b1838c2e1fc
1 ! { dg-do compile }
2 ! { dg-options "-fno-range-check -Wconversion" }
3 ! PR fortran/27997
5 ! Range check on array-constructors with typespec.
7 PROGRAM test
8   IMPLICIT NONE
10   INTEGER(KIND=4) :: arr(1)
11   arr = (/ INTEGER(KIND=4) :: HUGE(0_8) /) ! { dg-warning "Conversion" }
12 END PROGRAM test