gcc/testsuite/gfortran.dg/array_constructor_type_9.f

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/27997
   4 !
   5 ! Array constructor with typespec, check for regression
   6 ! with fixed form.
   7 !
   8       integer :: a(2), realabc, real_abc2
   9       a = [ realabc, real_abc2 ]
  10       end