! { 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 at " } | |
! { dg-warning "tab character at " "" { target "*-*-*" } .-1 } | |
end |