diff options
| author | Tilo Schwarz <tilo@tilo-schwarz.de> | 2013-03-20 07:45:49 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-03-20 08:45:49 +0100 |
| commit | 09c7dc636d0f407c4184b33e97928c3e2545130b (patch) | |
| tree | 0744b6d570842d8431a17b50679a66226389d6f5 /gcc | |
| parent | a192015dbab317517c463c5ed1ce03f3df22cbbe (diff) | |
| download | gcc-09c7dc636d0f407c4184b33e97928c3e2545130b.zip gcc-09c7dc636d0f407c4184b33e97928c3e2545130b.tar.gz gcc-09c7dc636d0f407c4184b33e97928c3e2545130b.tar.bz2 | |
re PR libfortran/48618 (Negative unit number in OPEN(...) is sometimes allowed)
2013-03-20 Tilo Schwarz <tilo@tilo-schwarz.de>
PR libfortran/48618
* io/open.c (st_open): Raise error for unit number < 0 only if
unit number does not exist already.
2013-03-20 Tilo Schwarz <tilo@tilo-schwarz.de>
PR libfortran/48618
* gfortran.dg/open_negative_unit_1.f90: New.
From-SVN: r196805
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/open_negative_unit_1.f90 | 21 |
2 files changed, 26 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6769ff7..7fe42de 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-03-20 Tilo Schwarz <tilo@tilo-schwarz.de> + + PR libfortran/48618 + * gfortran.dg/open_negative_unit_1.f90: New. + 2013-03-19 Ian Bolton <ian.bolton@arm.com> * gcc.target/aarch64/sbc.c: New test. diff --git a/gcc/testsuite/gfortran.dg/open_negative_unit_1.f90 b/gcc/testsuite/gfortran.dg/open_negative_unit_1.f90 new file mode 100644 index 0000000..6446436 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/open_negative_unit_1.f90 @@ -0,0 +1,21 @@ +! { dg-do run } +! PR48618 - Negative unit number in OPEN(...) is sometimes allowed +! +! Test originally from Janne Blomqvist in PR: +! http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48618 + +program nutest + implicit none + integer id, ios + + open(newunit=id, file="foo.txt", iostat=ios) + if (ios /= 0) call abort + + open(id, file="bar.txt", iostat=ios) + if (ios /= 0) call abort + + close(id, status="delete") + + open(-10, file="foo.txt", iostat=ios) + if (ios == 0) call abort +end program nutest |