PR libgfortran/27304
* gfortran.dg/fmt_exhaust.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113364
138bc75d-0d04-0410-961f-
82ee72b054a4
+2006-04-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/27304
+ * gfortran.dg/fmt_exhaust.f90: New test.
+
2006-04-28 Roger Sayle <roger@eyesopen.com>
PR c/25309
--- /dev/null
+! { dg-do run }
+! PR27304 Test running out of data descriptors with data remaining.
+! Derived from case in PR. Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>.
+ program test
+ implicit none
+ integer :: n
+ n = 1
+ write(10,"(i7,(' abcd'))", err=10) n, n
+ call abort()
+ 10 close(10, status="delete")
+ end program test