5 ! Further test of typebound defined assignment
11 integer, allocatable
:: b
14 generic
:: assignment(=) => assign0
16 type, extends(component
) :: comp2
20 type(component
) :: foo
27 elemental
subroutine assign0(lhs
,rhs
)
28 class(component
), intent(INout
) :: lhs
29 class(component
), intent(in
) :: rhs
37 type(p2
), allocatable
:: left
39 ! print *, right%x%foo%i
41 ! print *, left%x%foo%i
42 if (left
%x
%foo
%i
/= 20) call abort()