3 ! PR 45004: [OOP] Segfault with allocatable scalars and move_alloc
5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
14 class(foo), allocatable :: bf
17 class(foo), allocatable :: afab
22 call move_alloc(afab, bb%bf)
23 if (.not. allocated(bb%bf)) call abort()
24 if (allocated(afab)) call abort()
25 if (bb%bf%i/=8) call abort()