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

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gfortran.fortran-torture/execute/common_2.f90

+! 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