re PR fortran/16336 (ICE with common block in module)

PR fortran/16336
* gfortran.fortran-torture/execute/common_2.f90: New test.

From-SVN: r84478

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 497eca53383df5877a0c329ecc39a443622ca3ef..3d97823ae499d806567a14ba4cda69bc234c0dff 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-10  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       PR fortran/16336
+       * gfortran.fortran-torture/execute/common_2.f90: New test.
+
 2004-07-10  Paul Brook  <paul@codesourcery.com>
 
        * gfortran.fortran-torture/execute/der_init_5.f90: Enable more tests.

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/common_2.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/common_2.f90
new file mode 100644 (file)
index 0000000..fd7f762
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/common_2.f90
@@ -0,0 +1,14 @@
+! PR fortran/16336 -- the two common blocks used to clash
+MODULE bar
+INTEGER :: I
+COMMON /X/I
+END MODULE bar
+
+USE bar
+INTEGER :: J
+COMMON /X/J
+j = 1
+i = 2
+if (j.ne.i) call abort()
+if (j.ne.2) call abort()
+END