2 ! Test the fix for PR46897. defined_assignment_1.f90 checks that the PR
3 ! testcases run correctly, this checks array components are OK.
11 generic :: assignment(=)=>assign0
14 type(component) :: foo(2)
16 type, extends(parent) :: child
20 elemental subroutine assign0(lhs,rhs)
21 class(component), intent(out) :: lhs
22 class(component), intent(in) :: rhs
31 type(child) :: infant0, infant1(2)
33 infant0 = child([component(1),component(2)], 99)
34 if (any (infant0%parent%foo%i .ne. [20, 20])) call abort