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
PR inline-asm/84742
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
unformatted_recl_1.f90
blob
568898b9e7c29696c27b9baa38c2a9c1bacf8885
1
! { dg-do run { target fd_truncate } }
2
! PR31099 Runtime error on legal code using RECL
3
program
test
4
integer
(
kind
=
4
) ::
a
,
b
5
a
=
1
6
b
=
2
7
open
(
10
,
status
=
"scratch"
,
form
=
"unformatted"
,
recl
=
8
)
8
write
(
10
)
a
,
b
9
write
(
10
)
a
,
b
10
write
(
10
)
a
,
b
11
write
(
10
)
b
,
a
12
rewind
(
10
)
13
write
(
10
)
a
,
b
14
write
(
10
)
a
,
b
15
write
(
10
)
a
,
b
16
write
(
10
)
b
,
a
17
b
=
0
18
a
=
0
19
rewind
(
10
)
20
read
(
10
)
a
,
b
21
read
(
10
)
a
,
b
22
read
(
10
)
a
,
b
23
read
(
10
)
a
,
b
24
if
((
a
.
ne
.2
).
and
.(
b
.
ne
.1
))
STOP
1
25
end program
test
26