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