2013-03-20 Tilo Schwarz <tilo@tilo-schwarz.de>
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 20 Mar 2013 07:45:49 +0000 (07:45 +0000)
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 20 Mar 2013 07:45:49 +0000 (07:45 +0000)
commit093f923b005865916b8f8933a3a9fbb7ff341e1a
tree0744b6d570842d8431a17b50679a66226389d6f5
parentd8967540abc2f96cb3ecc8ff9352aee0dde356a4
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@196805 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/open_negative_unit_1.f90 [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/io/open.c