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