3 ! Test that pr78395 is fixed.
4 ! Contributed by Chris MacMackin and Janus Weil
18 procedure, pass(rhs) :: mul2
20 generic :: operator(*) => mul2
21 generic :: assignment(=) => assign
27 class(t1), intent(in) :: this
28 class(t2), allocatable :: get_t2
29 type(t2), allocatable :: local
32 call move_alloc(local, get_t2)
35 function mul2(lhs, rhs)
36 class(t2), intent(in) :: rhs
37 integer, intent(in) :: lhs
38 class(t2), allocatable :: mul2
39 type(t2), allocatable :: local
42 call move_alloc(local, mul2)
45 subroutine assign(this, rhs)
46 class(t2), intent(out) :: this
47 class(t2), intent(in) :: rhs
63 class(t1), allocatable :: v4
64 class(t2), allocatable :: v6
66 allocate(v4, source=t1(4))
72 if (v6%b /= 12) error stop