gcc/testsuite/gfortran.dg/array_constructor_30.f03

   1 ! { dg-do compile }
   2
   3 ! PR fortran/36492
   4 ! Similar to the ICE-test, but now test for complaint about constant
   5 ! specification expression.
   6
   7 implicit none
   8
   9 integer :: a = 42
  10 type t
  11   character (a) :: arr (1) = [ "a" ]
  12   ! { dg-error "in the expression" "" { target *-*-* } .-1 }
  13   ! { dg-error "specification expression" "" { target *-*-* } .-2 }
  14 end type t
  15
  16 end