1! PR libfortran/15332 and PR fortran/13257 2! We used to accept this as an extension but 3! did do the correct thing at runtime. 4! Note the missing , before i1 in the format. 5! { dg-do run } 6! { dg-options "" } 7 character*12 c 8 9 write (c,100) 0, 1 10 if (c .ne. 'i = 0, j = 1') STOP 1 11 12 write (c,100) 0 13 if (c .ne. 'i = 0 ') STOP 2 14 15 100 format ('i = 'i1,:,', j = ',i1) 16 end 17