gcc/testsuite/gfortran.dg/array_constructor_27.f03

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