[Bug fortran/69397] ICE on missing subprogram in generic interface

[jvdelisle at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69397

--- Comment #3 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
(In reply to Dominique d'Humieres from comment #2)
> Related to/duplicate of pr68442.

Sort of related, but I find 68442 fixed already.


> -  gcc_assert (sym->attr.flavor == FL_PROCEDURE);
> +  /* gcc_assert (sym->attr.flavor == FL_PROCEDURE); */
> +  if (sym->attr.flavor != FL_PROCEDURE)
> +    return false;
>  
How is this for error messages (I tweaked the second one):

$ gfc pr69397.f90 
pr69397.f90:3:18:

       procedure f1
                  1

Error: Procedure ‘f1’ in generic interface 'f' at (1) is neither function nor
subroutine
pr69397.f90:7:11:

    print *, f(z)
           1

Error: Generic procedure ‘f’ at (1) must have a specific procedure defined