diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-06-09 15:08:13 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-06-09 15:08:13 +0200 |
| commit | 655948a348f819803aeda65b0ae445ba86712a64 (patch) | |
| tree | cb0277d2df7f054d247bb5ce5a21275a5584a559 /gcc | |
| parent | 62f1d4705d0b042e13faad97ea12b665b4f3ad84 (diff) | |
| download | gcc-655948a348f819803aeda65b0ae445ba86712a64.zip gcc-655948a348f819803aeda65b0ae445ba86712a64.tar.gz gcc-655948a348f819803aeda65b0ae445ba86712a64.tar.bz2 | |
re PR fortran/13249 (Error when using COMMON)
PR fortran/13249
* gfortran.fortran-torture/compile/name_clash.f90: New test.
From-SVN: r82836
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/compile/name_clash.f90 | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d60039b..332e3f0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2004-06-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> + PR fortran/13249 + * gfortran.fortran-torture/compile/name_clash.f90: New test. + +2004-06-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> + PR fortran/13372 * gfortran.fortran-torture/compile/named_args_2.f90: New test. diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/name_clash.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/name_clash.f90 new file mode 100644 index 0000000..7386002 --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/compile/name_clash.f90 @@ -0,0 +1,10 @@ +! This is the testcase from PR13249. +! the two different entities named AN_EXAMPLE shouldn't conflict +! the real bug is PR15481, we currently (2004/06/09) work around PR13249 + MODULE MOD + INTEGER FOO + END + PROGRAM MAIN + USE MOD + COMMON /FOO/ BAR + END |