blob: 0b36aee2a2fad477a792aba8a9e1f0c2cc643265 [file] [log] [blame]
! { 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