[Bug fortran/100961] Intrinsic function as value to a class(*) assumed rank argument fails

[mscfd at gmx dot net]

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

--- Comment #3 from martin <mscfd at gmx dot net> ---
Created attachment 50968
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=50968&action=edit
second test case which segfaults

Playing around with some variants in select_rank_expression2.f90, I can see
that I sometimes get correct results, sometimes the rank is correctly
recognised, but not the type, and (as is the case for attachment
select_rank_expression2.f90) it even can segfault with an invalid memory
access. I get all these behaviours by selecting different sets of the four
"call p(..)" lines and varying the order in which they are executed.