re PR fortran/27304 (gfortran: Warn/abort when format in write does not fit passed arguments)
2006-04-28 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/27304 * gfortran.dg/fmt_exhaust.f90: New test. From-SVN: r113364
This commit is contained in:
parent
c4ee121ad5
commit
74ab8c2dae
|
@ -1,3 +1,8 @@
|
|||
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
|
||||
|
|
|
@ -0,0 +1,11 @@
|
|||
! { 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
|
Loading…
Reference in New Issue