gcc/testsuite/gfortran.dg/comma_format_extension_1.f

   1 ! { dg-do compile }
   2 ! { dg-options "" }
   3 ! test that the extension for a missing comma is accepted
   4
   5       subroutine mysub
   6       dimension ibar(5)
   7       write (3,1001) ( ibar(m), m = 1, 5 )
   8
   9  1001 format (/5x,' ',i4' '/ )
  10       return
  11       end