blob: 30f07e803c52bee611b320e333f50fbc2aca2790 [file] [log] [blame]
! PR fortran/13257
! Note the missing , before i1 in the format.
! { dg-do run }
! { dg-options "" }
character*6 c
write (c,1001) 1
if (c .ne. ' 1 ') STOP 1
1001 format (' ',i4' ')
end