gcc/testsuite/gfortran.dg/array_constructor_27.f03

   1 ! { dg-do compile }
   2
   3 ! PR fortran/36492
   4 ! Check for incorrect error message with -std=f2003.
   5 ! Reduced test triggering the ICE mentioned in comment #4, PR 36492.
   6
   7 implicit none
   8
   9 type t
  10   character (a) :: arr (1) = [ "a" ]
  11   ! { dg-error "no IMPLICIT type" "" { target *-*-* } 10 }
  12   ! { dg-error "specification expression" "" { target *-*-* } 10 }
  13 end type t
  14
  15 end