diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2012-12-27 20:13:35 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2012-12-27 20:13:35 +0000 |
| commit | 32758afe701bd07c99155fc02c55bf993ac21218 (patch) | |
| tree | aaa987e85cee251300c69f6ccfd595e05519fa39 /gcc | |
| parent | f5b650c0ace1265e1906d4a79717730ef089d528 (diff) | |
| download | gcc-32758afe701bd07c99155fc02c55bf993ac21218.zip gcc-32758afe701bd07c99155fc02c55bf993ac21218.tar.gz gcc-32758afe701bd07c99155fc02c55bf993ac21218.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/newunit_3.f90 | 6 |
2 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1237fb9..ffe56e9 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 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. diff --git a/gcc/testsuite/gfortran.dg/newunit_3.f90 b/gcc/testsuite/gfortran.dg/newunit_3.f90 new file mode 100644 index 0000000..b79a970 --- /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 |