repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Dead
[official-gcc.git]
/
gomp-20050608-branch
/
gcc
/
testsuite
/
gfortran.dg
/
backspace_2.f
blob
4291e0463e1887ec0bd587c3339110d95a71f261
1
! {
dg
-
do
run
}
2
!
PR25139 Repeated backspaces and reads
.
3
!
Derived from example given in PR by Dale Ranta and FX Coudert
4
!
Contributed by Jerry DeLisle
<
jvdelisle@gcc
.
gnu
.
org
>
5
integer
dat
(
5
)
6
dat
= (/
0
,
0
,
0
,
0
,
1
/)
7
write
(
11
)
dat
,
dat
,
dat
,
dat
8
rewind
11
9
write
(
11
)
dat
10
read
(
11
,
end
=
1008
)
dat
11
call
abort
()
12
1008
continue
13
backspace
11
14
write
(
11
)
dat
15
read
(
11
,
end
=
1011
)
dat
16
call
abort
()
17
1011
continue
18
backspace
11
19
backspace
11
20
end
21