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
12