From 36eb88745d5f4b7db64bf2a6e60c8067b747960d Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Mon, 30 May 2005 00:19:43 +0000 Subject: [PATCH] re PR fortran/20846 (inquire(FILE=..., UNIT=...) not flagged as error) PR fortran/20846 * gfortran.dg/inquire_8.f90: New test. From-SVN: r100339 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/inquire_8.f90 | 10 ++++++++++ 2 files changed, 15 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/inquire_8.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e556827c8c7..2dd90cf54f3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-05-30 Steven G. Kargl + + PR fortran/20846 + * gfortran.dg/inquire_8.f90: New test. + 2005-05-29 Francois-Xavier Coudert PR libfortran/21376 diff --git a/gcc/testsuite/gfortran.dg/inquire_8.f90 b/gcc/testsuite/gfortran.dg/inquire_8.f90 new file mode 100644 index 00000000000..1d30973b01d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/inquire_8.f90 @@ -0,0 +1,10 @@ +! { dg-do compile } +! fortran/pr20846 +program inquire_8 + character(len=20) :: n = 'data' + integer :: d = 23 + logical a + inquire(file=n,unit=d,opened=a) ! { dg-error "contain both FILE and UNIT" } + inquire(unit=d,file=n,opened=a) ! { dg-error "contain both FILE and UNIT" } + inquire(opened=a) ! { dg-error "requires either FILE or UNIT" } +end program inquire_8 -- 2.30.2