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

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

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

From-SVN: r194738

gcc/testsuite/ChangeLog

 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
 	* gfortran.dg/inquire_15.f90: New.
 

gcc/testsuite/gfortran.dg/newunit_3.f90

+! 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