(read_braced_string): Check for EOF. If encountered issue an error message.
[official-gcc.git] / gcc / testsuite / g77.dg / f77-edit-colon-out.f
blob4feef755f5772aa827ce8a54e80e8ddbe0c062a5
1 C Test Fortran 77 colon edit descriptor
2 C (ANSI X3.9-1978 Section 13.5.5)
4 C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
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