re PR fortran/21435 (fails to open nonexisting file with status scratch)
authorFrançois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Fri, 13 Oct 2006 08:18:50 +0000 (08:18 +0000)
committerFrançois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Fri, 13 Oct 2006 08:18:50 +0000 (08:18 +0000)
commit16dbbd9957c126f9d3b8014ac8f9d414163c03c7
tree3cdf2a3d259e896bbc296aeda2f6c06d3fcb1499
parent1a4259dca6f29ce22b34d346322529aa206eeac0
re PR fortran/21435 (fails to open nonexisting file with status scratch)

PR fortran/21435

* io.c (compare_to_allowed_values): New function.
(gfc_match_open): Add checks for constant values of specifiers.
(gfc_match_close): Add checks for constant values of the STATUS
specifier.

* gcc/testsuite/gfortran.dg/io_constraints_3.f90: New test.
* gcc/testsuite/gfortran.dg/open_access_append_1.f90: Add checks
for compile-time warnings.
* gcc/testsuite/gfortran.dg/pr20163-2.f: Likewise.
* gcc/testsuite/gfortran.dg/iostat_2.f90: Likewise.
* gcc/testsuite/gfortran.dg/label_4.f90: Delete the temporary
file.
* gcc/testsuite/gfortran.dg/direct_io_2.f90: Add a FILE=
specifier.
* gcc/testsuite/gfortran.dg/iomsg_1.f90: Add check for
compile-time warning.

From-SVN: r117685
gcc/fortran/ChangeLog
gcc/fortran/io.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/direct_io_2.f90
gcc/testsuite/gfortran.dg/io_constraints_3.f90 [new file with mode: 0644]
gcc/testsuite/gfortran.dg/iomsg_1.f90
gcc/testsuite/gfortran.dg/iostat_2.f90
gcc/testsuite/gfortran.dg/label_4.f90
gcc/testsuite/gfortran.dg/open_access_append_1.f90
gcc/testsuite/gfortran.dg/pr20163-2.f