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
[AArch64] Merge stores of D-register values with different modes
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
unit_1.f90
blob
3d7c1425d809dc7c317894bcc3c4a41711fbf21e
1
! { dg-do run }
2
! PR40638 Run Time Error: Unit number in I/O statement too large
3
program
main
4
integer
(
kind
=
2
) ::
lun
,
anum
5
integer
(
kind
=
1
) ::
looney
,
bin
6
lun
=
12
7
anum
=
5
8
looney
=
42
9
bin
=
23
10
open
(
lun
,
status
=
'scratch'
)
11
write
(
lun
,*)
anum
12
anum
=
0
13
rewind
(
lun
)
14
read
(
lun
, *)
anum
15
if
(
anum
.
ne
.5
)
STOP
1
16
open
(
looney
,
status
=
'scratch'
)
17
write
(
looney
,*)
bin
18
bin
=
0
19
rewind
(
looney
)
20
read
(
looney
,*)
bin
21
if
(
bin
.
ne
.23
)
STOP
2
22
close
(
lun
)
23
close
(
looney
)
24
end