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
2017-02-20 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
fmt_exhaust.f90
blob
bd9c8bcfb3f9a4c11d686c821dbb623da6463252
1
! { dg-do run }
2
! PR27304 Test running out of data descriptors with data remaining.
3
! Derived from case in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
4
program
test
5
implicit none
6
integer
::
n
7
n
=
1
8
open
(
10
,
status
=
"scratch"
)
9
write
(
10
,
"(i7,(' abcd'))"
,
err
=
10
)
n
,
n
10
call
abort
()
11
10
close
(
10
)
12
end program
test