gcc/testsuite/gfortran.dg/comma_format_extension_4.f

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