Sign in
gnu
/
gcc
/
f00b5710a30f22efc3171c393e56aeb335c3cd39
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
slash_1.f90
blob: 854d5d578f6834aaefd17ee640e122920f8c90b2 [
file
] [
log
] [
blame
]
!
PR libfortran
/
22170
!
{
dg
-
do
run
}
integer i
open
(
10
,
status
=
'scratch'
)
write
(
10
,
'(A,2/,A)'
)
'12'
,
'17'
rewind
(
10
)
read
(
10
,
'(I2)'
)
i
if
(
i
/=
12
)
STOP
1
read
(
10
,
'(I2)'
)
i
if
(
i
/=
0
)
STOP
2
read
(
10
,
'(I2)'
)
i
if
(
i
/=
17
)
STOP
3
end