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
Add execution tests of ARM EXT intrinsics
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
unformatted_recl_1.f90
blob
9618ff27a8bce5ad69fb09a4b2bd891269a9662c
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
))
call
abort
()
25
end program
test
26
