diff options
| author | Victor Leikehman <lei@haifasphere.co.il> | 2004-05-22 17:51:16 +0300 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-05-22 14:51:16 +0000 |
| commit | b672076889e2bf7666cea2bb817c2be541622c29 (patch) | |
| tree | d7ae5097bd6a610e691613f37d163b58b5572948 /gcc/fortran/symbol.c | |
| parent | ae5cbc332f60a4f9bcca56c4739410c9b2d3abf9 (diff) | |
| download | gcc-b672076889e2bf7666cea2bb817c2be541622c29.zip gcc-b672076889e2bf7666cea2bb817c2be541622c29.tar.gz gcc-b672076889e2bf7666cea2bb817c2be541622c29.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 6 |
1 files changed, 5 insertions, 1 deletions
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); |