[Bug fortran/103471] [9/10/11/12 Regression] ICE in gfc_typenode_for_spec, at fortran/trans-types.c:1114

["kargl at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>]

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.  */
        }