mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 05:10:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/48960 (OPEN statement modifies NEWUNIT variable on error)

Browse Source 
2012-12-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/48960
	* gfortran.dg/newunit_3.f90: New.

From-SVN: r194738
This commit is contained in:
Jerry DeLisle 2012-12-27 20:13:35 +00:00
parent f5b650c0ac
commit 32758afe70
2 changed files with 11 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 @@
2012-12-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/48960
* gfortran.dg/newunit_3.f90: New.
2012-12-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/48976

6
gcc/testsuite/gfortran.dg/newunit_3.f90 Normal file
View File

@ -0,0 +1,6 @@
! PR48960 On ERROR newunit should not modify user variable.
program test_newunit
integer :: st, un = 0
open (newunit=un, file='nonexisting.dat', status='old', iostat=st)
if (un /= 0) call abort
end program test_newunit