Sign in
llvm
/
llvm-archive
/
3698204cb8af2c80b326ae84c9a9e6a4bccbdedc
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
backspace.f90
blob: 4f0b9e975d63100c43d642e4c92c23695fe33054 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
pr18284 BACKSPACE broken
open
(
unit
=
10
,
access
=
'SEQUENTIAL'
,
status
=
'SCRATCH'
)
do
I
=
1
,
200
write
(
10
,*)
I
end
do
backspace
(
10
)
backspace
(
10
)
read
(
10
,*)
I
if
(
I
.
NE
.
199
)
call abort
end