diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2007-07-22 12:37:12 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2007-07-22 12:37:12 -0400 |
| commit | eec14ce5ec901fc2bab2cc8b25b5ec6c8f9ce3d5 (patch) | |
| tree | 66448a3dd6b7e52ad2cc8398829796edab77d651 /gcc/testsuite | |
| parent | 26677eb88e7a381bb625e30d60529974e086d594 (diff) | |
| download | gcc-eec14ce5ec901fc2bab2cc8b25b5ec6c8f9ce3d5.zip gcc-eec14ce5ec901fc2bab2cc8b25b5ec6c8f9ce3d5.tar.gz gcc-eec14ce5ec901fc2bab2cc8b25b5ec6c8f9ce3d5.tar.bz2 | |
re PR fortran/32710 (ICE: namelist and subroutine with the same name)
gcc/fortran:
2007-07-22 Daniel Franke <franke.daniel@gmail.com>
PR fortran/32710
* parse.c (gfc_fixup_sibling_symbols): No replacement of symbols if
the current is a namelist.
gcc/testsuite:
2007-07-22 Daniel Franke <franke.daniel@gmail.com>
PR fortran/32710
* gfortran.dg/namelist_30.f90: New test.
From-SVN: r126828
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/namelist_30.f90 | 19 |
2 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f13e9c6..17989ac 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2007-07-22 Daniel Franke <franke.daniel@gmail.com> + PR fortran/32710 + * gfortran.dg/namelist_30.f90: New test. + +2007-07-22 Daniel Franke <franke.daniel@gmail.com> + PR fortran/29962 * gfortran.dg/array_initializer_1.f90: Removed warning. * gfortran.dg/initialization_1.f90: Adjusted messages. diff --git a/gcc/testsuite/gfortran.dg/namelist_30.f90 b/gcc/testsuite/gfortran.dg/namelist_30.f90 new file mode 100644 index 0000000..1e7cb9e --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_30.f90 @@ -0,0 +1,19 @@ +! { dg-do compile } +! +! PR fortran/32710 - ICE: namelist and subroutine with the same name +! +! Contributed by Janus Weil <jaydub66 AT gmail DOT com> +! + +program x +contains + subroutine readInput + integer:: a + NAMELIST /foo/ a + read(5,nml=foo) + end subroutine readInput + + subroutine foo() + end subroutine + +end program |