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
* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
eor_handling_1.f90
blob
241f8a0fe4e078056f9e58d429f6374519a346b3
1
! { dg-do run }
2
! PR 17992: Reading an empty file should yield zero with pad='YES'
3
! (which is the default).
4
! Test case supplied by milan@cmm.ki.si.
5
program
main
6
open
(
77
,
status
=
'scratch'
)
7
write
(
77
,
'(A)'
)
''
,
''
8
rewind
(
77
)
9
i
=
42
10
j
=
42
11
read
(
77
,
'(/2i2)'
)
i
,
j
12
if
(
i
/=
0
.
or
.
j
/=
0
)
call
abort
13
close
(
77
)
14
end program
main