[Bug fortran/93924] ICE in gfc_class_len_get at trans_expr.c:231 with function returning a procedure pointer

[dominiq at lps dot ens.fr]

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

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Up to revion r242391 I get the error:

    function selector() result(f)
                                1
Error: CLASS variable 'f' at (1) must be dummy, allocatable or pointer
pr93924.f90:29:19:

    function apply(f, x) result(y)
                   1
Error: CLASS variable 'f' at (1) must be dummy, allocatable or pointer
pr93924.f90:51:4:

 use cs
    1
Fatal Error: Can't open module file 'cs.mod' for reading at (1): No such file
or directory
compilation terminated.

I see the ICE at revision r242749.