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

[Steve Kargl]

On Fri, Feb 01, 2019 at 06:15:21PM +0000, Paul Richard Thomas wrote:
> 2019-02-01  Paul Thomas  <pault@gcc.gnu.org>
> 
>     PR fortran/88393
>     * trans-expr.c (gfc_conv_procedure_call): For derived entities,
>     passed in parentheses to class formals, invert the order of
>     copying allocatable components to taking taking the _data of
>     the class expression.

taking taking

> 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/

-- 
Steve