diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-01-11 21:18:10 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-01-11 21:18:10 +0000 |
| commit | 136747cd27187776d1ea0c053201a19e1361b4c4 (patch) | |
| tree | 12f79269ddf4bfd5061b2cce1a050a64dd898662 /gcc/testsuite/gfortran.dg/inquire_12.f90 | |
| parent | 094e2912249ee6214be652702be319a80d763442 (diff) | |
| download | gcc-136747cd27187776d1ea0c053201a19e1361b4c4.tar.gz | |
2008-01-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/34722
* gfortran.dg//inquire_12.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131476 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/inquire_12.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/inquire_12.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
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 |