From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 11 Jan 2008 21:18:10 +0000 (+0000)
Subject: re PR fortran/34722 (ICE: left-over "@iostat" variable polutes namespace)
X-Git-Tag: releases/gcc-4.3.0~651
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=d8d3198e789d563b42a029b1916de9377a06ccc4;p=thirdparty%2Fgcc.git

re PR fortran/34722 (ICE: left-over "@iostat" variable polutes namespace)

2008-01-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/34722
	* gfortran.dg//inquire_12.f90: New test.

From-SVN: r131476
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 85060acfa8b5..0977f2ff9ffd 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/34722
+	* gfortran.dg//inquire_12.f90: New test.
+
 2008-01-11  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	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 000000000000..4595fb568af6
--- /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