5 ! Related: PR fortran/57697
15 generic
:: assignment(=) => assign0
17 type, extends(component
) :: comp2
24 elemental
subroutine assign0(lhs
,rhs
)
25 class(component
), intent(INout
) :: lhs
26 class(component
), intent(in
) :: rhs
34 type(parent
), allocatable
:: left
39 if (left
%foo
%i
/= 42) STOP 1