Sign in
gnu
/
gcc
/
19220ca6aa79921cc431e41f25986e16410c7a6a
/
.
/
gcc
/
testsuite
/
g77.dg
/
f77-edit-slash-out.f
blob: 6cc9a8842d6216bd1754a0cdf04efa40ccfa66df [
file
] [
log
] [
blame
]
C
Test
Fortran
77
colon slash descriptor
C
(
ANSI X3
.
9
-
1978
Section
13.5
.
4
)
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)/2(I1))'
)
(
I
,
I
=
1
,
5
)
end