gcc/testsuite/gfortran.dg/g77/f77-edit-slash-out.f

   1 C Test Fortran 77 colon slash descriptor
   2 C      (ANSI X3.9-1978 Section 13.5.4)
   3 C
   4 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
   5 C
   6 C { dg-do run }
   7 C { dg-output "^123(\n|\r\n|\r)45(\n|\r\n|\r)\$" }
   8       write(*,'(3(I1)/2(I1))')  (I,I=1,5)
   9       end