3 ! PR 41581: [OOP] Allocation of a CLASS with SOURCE=<class> does not work
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
15 class(t), allocatable :: m1, m2
22 if (abs(m2%r-384.02)>1E-3) STOP 2
29 allocate(m1, source=m2)
34 if (abs(m1%r+4.0)>1E-3) STOP 5