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
)) STOP 1
24 if (allocated(afab
)) STOP 2
25 if (bb
%bf
%i
/=8) STOP 3