From: Victor Leikehman <lei@haifasphere.co.il>
Date: Sat, 22 May 2004 14:51:16 +0000 (+0300)
Subject: re PR fortran/13249 (Error when using COMMON)
X-Git-Tag: releases/gcc-4.0.0~8204
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b672076889e2bf7666cea2bb817c2be541622c29;p=thirdparty%2Fgcc.git

re PR fortran/13249 (Error when using COMMON)

	PR fortran/13249
	* symbol.c (gfc_add_common): Disable checks to work around other more
	fundamental inadequacies.

From-SVN: r82134
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3d0d427b78ae..409992e0e9e9 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2004-05-22  Victor Leikehman  <lei@haifasphere.co.il>
+
+	PR fortran/13249
+	* symbol.c (gfc_add_common): Disable checks to work around other more
+	fundamental inadequacies.
+
 2004-05-22  Tobias Schlüter  <tobias.schlueter@physik.uni-muenchen.de>
 
 	* trans-decl.c (gfc_get_extern_function_decl): Set DECL_IS_PURE
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index e7ea279d5071..0d78c0321141 100644
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -722,9 +722,13 @@ gfc_add_dummy (symbol_attribute * attr, locus * where)
 try
 gfc_add_common (symbol_attribute * attr, locus * where)
 {
-
+  /* TODO: We currently add common blocks into the same namespace as normal
+     variables.  This is wrong.  Disable the checks below as a temporary
+     hack.  See PR13249  */
+#if 0
   if (check_used (attr, where) || check_done (attr, where))
     return FAILURE;
+#endif
 
   attr->common = 1;
   return check_conflict (attr, where);