gcc/testsuite/gfortran.dg/comma_format_extension_2.f

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