https://gcc.gnu.org/bugzilla/show_bug.cgi?id=92805
--- Comment #5 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Hi Steve,
> Index: gcc/fortran/primary.c
> ===================================================================
> --- gcc/fortran/primary.c (revision 279052)
> +++ gcc/fortran/primary.c (working copy)
> @@ -90,16 +90,22 @@ match_kind_param (int *kind, int *is_iso_c)
> static int
> get_kind (int *is_iso_c)
> {
> + char c;
> int kind;
> match m;
>
> *is_iso_c = 0;
>
> + c = gfc_peek_ascii_char ();
> + if (gfc_current_form == FORM_FREE && gfc_is_whitespace (c))
> + return -2;
> +
> if (gfc_match_char ('_') != MATCH_YES)
> return -2;
>
> - m = match_kind_param (&kind, is_iso_c);
> - if (m == MATCH_NO)
> + c = gfc_peek_ascii_char ();
> + if ((gfc_current_form == FORM_FREE && gfc_is_whitespace (c))
> + || (m = match_kind_param (&kind, is_iso_c)) == MATCH_NO)
> gfc_error ("Missing kind-parameter at %C");
>
> return (m == MATCH_YES) ? kind : -1;
That patch looks good. Do you plan on submitting it?
