Rebase.
[official-gcc.git] / gcc / testsuite / gfortran.dg / move_alloc_5.f90
blobb2759de2c1dd1649ae765bafe203d325c858570c
1 ! { dg-do run }
3 ! PR 48699: [4.6/4.7 Regression] [OOP] MOVE_ALLOC inside SELECT TYPE
5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
7 program testmv1
9 type bar
10 end type
12 type, extends(bar) :: bar2
13 end type
15 class(bar), allocatable :: sm
16 type(bar2), allocatable :: sm2
18 allocate (sm2)
19 call move_alloc (sm2,sm)
21 if (allocated(sm2)) call abort()
22 if (.not. allocated(sm)) call abort()
24 end program