Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
g77
/
f77-edit-colon-out.f
blob: c4e8e7f3a3586386861f752d6b9781378fd6d05f [
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(\r*\n+)45(\r*\n+)\$"
}
write
(*,
'((3(I1:)))'
)
(
I
,
I
=
1
,
5
)
end