blob: 7eb17b58434094de68aba864e6b7dcdfb9bd0528 [file] [log] [blame]
! { dg-do compile }
! test that the extension for a missing comma is accepted
subroutine mysub
dimension ibar(5)
write (3,1001) ( ibar(m), m = 1, 5 )
1001 format (/5x,' ',i4' '/ ) ! { dg-warning "Missing comma" }
return
end