gcc/testsuite/gfortran.dg/array_constructor_type_12.f03

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/27997
   4 !
   5 ! Array constructor with typespec.
   6 !
   7 real :: a(3)
   8 integer :: j(3)
   9 a = (/ integer :: 1.4, 2.2, 3.33  /)
  10 j = (/ 1.4, 2.2, 3.33  /)
  11 if( any(a /= j )) call abort()
  12 end