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