1! { dg-do run } 2! 3! PR 48699: [4.6/4.7 Regression] [OOP] MOVE_ALLOC inside SELECT TYPE 4! 5! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> 6 7program testmv1 8 9 type bar 10 end type 11 12 type, extends(bar) :: bar2 13 end type 14 15 class(bar), allocatable :: sm 16 type(bar2), allocatable :: sm2 17 18 allocate (sm2) 19 call move_alloc (sm2,sm) 20 21 if (allocated(sm2)) call abort() 22 if (.not. allocated(sm)) call abort() 23 24end program 25