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
8implicit none
9
10type t
11  character (a) :: arr (1) = [ "a" ]
12  ! { dg-error "specification expression" "" { target *-*-* } 11 }
13end type t
14
15end
16