From 0717bfbd1778001f3f15370e9d7fdef4f749f88f Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 7 Dec 2008 01:15:46 +0000 Subject: [PATCH] re PR fortran/38425 (I/O: POS= compile-time diagnostics) 2008-12-06 Jerry DeLisle PR fortran/38425 * gfortran.dg/io_constraints_5.f90: New test. From-SVN: r142535 --- gcc/testsuite/ChangeLog | 5 ++++ .../gfortran.dg/io_constraints_5.f90 | 23 +++++++++++++++++++ 2 files changed, 28 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/io_constraints_5.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2e6c2daf24c..d7490b00257 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-12-06 Jerry DeLisle + + PR fortran/38425 + * gfortran.dg/io_constraints_5.f90: New test. + 2008-12-06 Jakub Jelinek PR middle-end/38428 diff --git a/gcc/testsuite/gfortran.dg/io_constraints_5.f90 b/gcc/testsuite/gfortran.dg/io_constraints_5.f90 new file mode 100644 index 00000000000..8d62e25a32b --- /dev/null +++ b/gcc/testsuite/gfortran.dg/io_constraints_5.f90 @@ -0,0 +1,23 @@ +! { dg-do compile } +! PR 38425 I/O: POS= compile-time diagnostics +!---------------------------------------------------------- +character(len=30) :: str +open(3,access='stream') + +! C919 (R913) If io-unit is not a file-unit-number, the +! io-control-spec-list shall not contain a REC= specifier +! or a POS= specifier. +write(str,*, pos=4) 5 ! { dg-error "incompatible with internal" } + +! C927 (R913) If a POS= specifier appears, the +! io-control-spec-list shall not contain a REC= specifier. +write(3,pos=5,rec=4) 5 ! { dg-error "POS= is not allowed with REC=" } +write(3,rec=4,pos=5) 5 ! { dg-error "POS= is not allowed with REC=" } + +!Fortran runtime error: REC=specifier not allowed with STREAM access +write(3,rec=4) 5 +!Fortran runtime error: REC=specifier must be positive +write(3,rec=-3) 44 +!Fortran runtime error: POS=specifier must be positive +write(3,pos=-4) 44 +end