1! { dg-do compile }
2! { dg-options "-std=gnu" }
3
4! PR fortran/36492
5! Check for incorrect error message with -std=f2003.
6! Test from comment #4, PR 36492 causing ICE.
7
8MODULE WinData
9  IMPLICIT NONE
10  INTEGER (1), PARAMETER :: MAXFLD = 25_1, MAXHED = 5_1, MAXCHR = 80_1
11  integer :: i
12  TYPE TWindowData
13    CHARACTER (MAX_FLD_HED, 1) :: DWFdHd(MAXFLD) = [(" ", i = 1, MAXFLD)]
14    ! { dg-error "specification expression" "" { target *-*-* } 13 }
15  END TYPE TWindowData
16END MODULE WinData
17