OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Jerry DeLisle 2006-04-29 00:02:10 +00:00
parent c4ee121ad5
commit 74ab8c2dae
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

11
gcc/testsuite/gfortran.dg/fmt_exhaust.f90 Normal file
View File

@ -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