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