From d8d3198e789d563b42a029b1916de9377a06ccc4 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 11 Jan 2008 21:18:10 +0000 Subject: [PATCH] re PR fortran/34722 (ICE: left-over "@iostat" variable polutes namespace) 2008-01-11 Jerry DeLisle PR fortran/34722 * gfortran.dg//inquire_12.f90: New test. From-SVN: r131476 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/inquire_12.f90 | 13 +++++++++++++ 2 files changed, 18 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/inquire_12.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 85060acfa8b..0977f2ff9ff 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-01-11 Jerry DeLisle + + PR fortran/34722 + * gfortran.dg//inquire_12.f90: New test. + 2008-01-11 Thomas Koenig PR libfortran/34670 diff --git a/gcc/testsuite/gfortran.dg/inquire_12.f90 b/gcc/testsuite/gfortran.dg/inquire_12.f90 new file mode 100644 index 00000000000..4595fb568af --- /dev/null +++ b/gcc/testsuite/gfortran.dg/inquire_12.f90 @@ -0,0 +1,13 @@ +! { dg-do compile } +! PR34722 ICE: left-over "@iostat" variable polutes namespace +program gamsanal +implicit none +character :: tmp +integer iodict +logical dicexist +inquire(unit=iodict, exist=dicexist) +end + +subroutine inventnames() +implicit none +end subroutine \ No newline at end of file -- 2.30.2