gcc/testsuite/gfortran.dg/tab_continuation.f

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/34899
   4 !
   5 ! Allow <tab>1 to <tab>9 as continuation marker, which is a very common
   6 ! vendor extension.
   7 !
   8         PARAMETER (LUMIN=11,LUMAX=20,MAPMAX=256,NPLANEMAX=999)
   9         INTEGER NAXIS(0:MAPMAX,LUMIN:LUMAX),NAXIS1(0:MAPMAX,LUMIN:LUMAX),
  10         1NAXIS2(0:MAPMAX,LUMIN:LUMAX),NAXIS3(0:MAPMAX,LUMIN:LUMAX)
  11         end
  12 ! { dg-warning "Nonconforming tab character in column 1 of line 8" "Nonconforming tab" {target "*-*-*"} 0 }
  13 ! { dg-warning "Nonconforming tab character in column 1 of line 9" "Nonconforming tab" {target "*-*-*"} 0 }
  14 ! { dg-warning "Nonconforming tab character in column 1 of line 10" "Nonconforming tab" {target "*-*-*"} 0 }
  15 ! { dg-warning "Nonconforming tab character in column 1 of line 11" "Nonconforming tab" {target "*-*-*"} 0 }