https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103471
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #2 from kargl at gcc dot gnu.org ---
An error is being queued in symbol.c(gfc_set_default_type), but
error reporting has been disabled for some reason. Changing
gfc_error() to gfc_error_now() restores emitting the error
message, but is this correct!
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c
index 179f6029ca3..43691710120 100644
--- a/gcc/fortran/symbol.c
+++ b/gcc/fortran/symbol.c
@@ -303,11 +303,11 @@ gfc_set_default_type (gfc_symbol *sym, int error_flag,
gfc_namespace *ns)
{
const char *guessed = lookup_symbol_fuzzy (sym->name, sym);
if (guessed)
- gfc_error ("Symbol %qs at %L has no IMPLICIT type"
+ gfc_error_now ("Symbol %qs at %L has no IMPLICIT type"
"; did you mean %qs?",
sym->name, &sym->declared_at, guessed);
else
- gfc_error ("Symbol %qs at %L has no IMPLICIT type",
+ gfc_error_now ("Symbol %qs at %L has no IMPLICIT type",
sym->name, &sym->declared_at);
sym->attr.untyped = 1; /* Ensure we only give an error once. */
}
