3 ! PR 48699: [4.6/4.7 Regression] [OOP] MOVE_ALLOC inside SELECT TYPE
5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
12 type, extends(bar) :: bar2
15 class(bar), allocatable :: sm
16 type(bar2), allocatable :: sm2
19 call move_alloc (sm2,sm)
21 if (allocated(sm2)) call abort()
22 if (.not. allocated(sm)) call abort()