Imported Upstream version 4.8.1
[platform/upstream/gcc48.git] / gcc / testsuite / gfortran.dg / g77 / f77-edit-colon-out.f
1 C Test Fortran 77 colon edit descriptor 
2 C      (ANSI X3.9-1978 Section 13.5.5)
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:)))')  (I,I=1,5)
9       end