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

   1 C Test Fortran 77 X 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(*,'(I1,1X,I1,2X,I1)') 1,2,3    ! { dg-output "1 2  3(\n|\r\n|\r)" }
   9 C Section 13.5.3 explains why there are no trailing blanks
  10       write(*,'(I1,1X,I1,2X,I1,3X)') 1,2,3 ! { dg-output "1 2  3(\n|\r\n|\r)" }
  11 C { dg-output "\$" }
  12       end