gcc/testsuite/gfortran.dg/array_constructor_type_18.f03

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