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
11