[Bug fortran/61881] ICE in gfc_conv_intrinsic_to_class with assumed-rank CLASS(*)

[burnus at gcc dot gnu.org]

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

--- Comment #3 from Tobias Burnus <burnus at gcc dot gnu.org> ---
The draft patch does not fully work:

a) "class._data = desc" assignment is missing
  tmp = gfc_build_addr_expr (NULL_TREE, tmp);
plus the moved gfc_add_modify works in the scalar case; for the array case, one
additionally needs a prior gfc_conv_class_to_class call.

b) It mishandles  class(*) :: foo[*]  dummy arguments for which wrongly an
array descriptor is passed, one needs an additional
  && class_ts.u.derived->components->as->type == AS_ASSUMED_RANK