! 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 ') call abort 1001 format (' ',i4' ') end