[Bug fortran/70601] [5/6/7 Regression] [OOP] ICE on procedure pointer component call

[janus at gcc dot gnu.org]

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

--- Comment #8 from janus at gcc dot gnu.org ---
(In reply to janus from comment #7)
> The following is sufficient to suppress the ICE:

... and regtests cleanly.