[Patch, fortran] PR88393 - [7/8/9 Regression] [OOP] Segfault with type-bound assignment

[Paul Richard Thomas]

Hi Steve,

> taking taking
>

OK OK

> > Index: gcc/fortran/trans-expr.c
> > ===================================================================
> > *** gcc/fortran/trans-expr.c  (revision 268231)
> > --- gcc/fortran/trans-expr.c  (working copy)
> > *************** gfc_conv_procedure_call (gfc_se * se, gf
> > *** 6042,6047 ****
> > --- 6042,6057 ----
> >             break;
> >           }
> >
> > +       if (e->ts.type == BT_DERIVED && fsym && fsym->ts.type == BT_CLASS)
> > +         {
> > +           /* The derived type is passed to gfc_deallocate_alloc_comp.
> > +              Therefore, class actuals can handled correctly but derived
>
> s/can handled/can be handled/

Thanks - in the original of course but I should have spotted it.

Thanks for the review.

Paul