1! PR fortran/13257 2! Note the missing , before i1 in the format. 3! { dg-do run } 4! { dg-options "" } 5 character*6 c 6 write (c,1001) 1 7 if (c .ne. ' 1 ') STOP 1 8 9 1001 format (' ',i4' ') 10 end 11