From d63f6f0cee02652b51140afbc54639e5888aab45 Mon Sep 17 00:00:00 2001 From: pbrook Date: Sat, 22 May 2004 14:51:16 +0000 Subject: [PATCH] PR fortran/13249 * symbol.c (gfc_add_common): Disable checks to work around other more fundamental inadequacies. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82134 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/symbol.c | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 3d0d427..409992e 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2004-05-22 Victor Leikehman + + PR fortran/13249 + * symbol.c (gfc_add_common): Disable checks to work around other more + fundamental inadequacies. + 2004-05-22 Tobias Schlüter * 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 e7ea279..0d78c03 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); -- 2.7.4