gcc/testsuite/gfortran.dg/array_constructor_29.f03

   1 ! { dg-do compile }
   2
   3 ! PR fortran/36492
   4 ! Similar to the ICE-test, but now test it works for real constants.
   5
   6 implicit none
   7
   8 integer, parameter :: a = 42
   9 type t
  10   character (a) :: arr (1) = [ "a" ]
  11 end type t
  12
  13 end