gcc/testsuite/gfortran.dg/fmt_tab_1.f90


1
2
3
4
5
6
7
8
9
10
11

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