1! { dg-do compile }
2! { dg-options "-std=f2003" }
3
4! PR fortran/36492
5! Check for incorrect error message with -std=f2003.
6! Reduced test based on the one from comment #4, PR 36492.
7
8type t
9 character (2) :: arr (1) = [ "a" ]
10end type t
11
12end
13