! { 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