From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Sat, 10 Jul 2004 22:59:58 +0000 (+0200)
Subject: re PR fortran/16336 (ICE with common block in module)
X-Git-Tag: releases/gcc-4.0.0~6768
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=a53334a410414050de6771bddf44f6febbc51e53;p=thirdparty%2Fgcc.git

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 497eca53383d..3d97823ae499 100644
--- 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
index 000000000000..fd7f76220f59
--- /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