From 32758afe701bd07c99155fc02c55bf993ac21218 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Thu, 27 Dec 2012 20:13:35 +0000 Subject: [PATCH] re PR libfortran/48960 (OPEN statement modifies NEWUNIT variable on error) 2012-12-27 Jerry DeLisle PR fortran/48960 * gfortran.dg/newunit_3.f90: New. From-SVN: r194738 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/newunit_3.f90 | 6 ++++++ 2 files changed, 11 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/newunit_3.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1237fb9bdf9a..ffe56e980ff8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-12-27 Jerry DeLisle + + PR fortran/48960 + * gfortran.dg/newunit_3.f90: New. + 2012-12-27 Jerry DeLisle PR fortran/48976 diff --git a/gcc/testsuite/gfortran.dg/newunit_3.f90 b/gcc/testsuite/gfortran.dg/newunit_3.f90 new file mode 100644 index 000000000000..b79a970a1171 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/newunit_3.f90 @@ -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