[Bug fortran/68226] [6/7/8 Regression] [OOP] ICE on assignment of pointer-valued function to allocatable

[anlauf at gmx dot de]

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

--- Comment #5 from Harald Anlauf <anlauf at gmx dot de> ---
The code in comment#0 compiles with current trunk.  The ICE is gone.

Not sure if the code is valid, but NAG accepts it
without complaining.

Adding a line

  print *, a

prints

           1           2

which I think is correct.