2 ! { dg-options "-std=gnu" }
5 ! Check for incorrect error message with -std=f2003.
6 ! Reduced test triggering the ICE mentioned in comment #4, PR 36492.
11 character (a) :: arr (1) = [ "a" ]
12 ! { dg-error "no IMPLICIT type" "" { target *-*-* } 11 }
13 ! { dg-error "specification expression" "" { target *-*-* } 11 }