https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66545
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #4 from kargl at gcc dot gnu.org ---
(In reply to Thomas Koenig from comment #3)
> This fixes the complex part, the others need their own parts.
>
> Index: primary.c
> ===================================================================
> --- primary.c (Revision 224450)
> +++ primary.c (Arbeitskopie)
> @@ -1254,6 +1254,13 @@ match_sym_complex_part (gfc_expr **result)
> return MATCH_ERROR;
> }
>
> + if (sym->value == NULL)
> + {
> + gfc_error ("PARAMETER %qs is used at %C before its definition "
> + "is complete", sym->name);
> + return MATCH_ERROR;
> + }
> +
> if (!gfc_numeric_ts (&sym->value->ts))
> {
> gfc_error ("Numeric PARAMETER required in complex constant at %C");
I have
if (!sym->value)
goto error;
which leads to the same error.
