https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95614
Ev Drikos <drikosev at gmail dot com> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |drikosev at gmail dot com
--- Comment #3 from Ev Drikos <drikosev at gmail dot com> ---
Hello,
Perhaps, an additional check in file resolve.c might be necessary, or
one would have to adjust one-two "common*.f" test cases.
Hope this helps,
Ev. Drikos
----------------------------------------------------------------------
if (gsym && gsym->type != GSYM_UNKNOWN && gsym->type != GSYM_COMMON)
+ gsym = gfc_find_gsymbol (gfc_gsym_root, csym->name);
+ if (gsym && gsym->type != GSYM_UNKNOWN)
+ gfc_error_now ("Global entity %qs at %L cannot appear in a "
+ "COMMON block at %L", gsym->name,
+ &gsym->where, &csym->common_block->where);
+
