| ! { dg-do compile } | |
| ! { dg-options -Wtabs } | |
| ! PR fortran/32987 | |
| ! PR fortran/58001 | |
| program TestFormat | |
| write (*, 10) | |
| ! There is a tab character before 'bug!'. This is accepted without | |
| ! the -Wno-tabs option or a -std= option. | |
| 10 format ('Hello ', 'bug!') ! { dg-warning "tab character in format" } | |
| end | |
| ! { dg-excess-errors "tab character in format" } |