gcc/testsuite/g77.dg/f77-edit-t-out.f

   1 C Test Fortran 77 T edit descriptor
   2 C      (ANSI X3.9-1978 Section 13.5.3.2)
   3 C
   4 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
   5 C
   6 C { dg-do run }
   7 C ( dg-output "^" }
   8       write(*,'(I4,T8,I1)')     1234,8 ! { dg-output "1234   8(\n|\r\n|\r)" }
   9       write(*,'(I4,TR3,I1)')    1234,8 ! { dg-output "1234   8(\n|\r\n|\r)" }
  10       write(*,'(I4,5X,TL2,I1)') 1234,8 ! { dg-output "1234   8(\n|\r\n|\r)" }
  11 C ( dg-output "\$" }
  12       end