Sign in
gnu
/
gcc
/
57ea00136418991e847e46a6946a81a1df70c9a4
/
.
/
gcc
/
testsuite
/
g77.dg
/
f77-edit-colon-out.f
blob: 4feef755f5772aa827ce8a54e80e8ddbe0c062a5 [
file
] [
log
] [
blame
]
C
Test
Fortran
77
colon edit descriptor
C
(
ANSI X3
.
9
-
1978
Section
13.5
.
5
)
C
C
Origin
:
David
Billinghurst
<
David
.
Billinghurst@riotinto
.
com
>
C
C
{
dg
-
do
run
}
C
{
dg
-
output
"^123(\n|\r\n|\r)45(\n|\r\n|\r)\$"
}
write
(*,
'((3(I1:)))'
)
(
I
,
I
=
1
,
5
)
end