Subversion Repositories openrisc

! { dg-do run }

! PR fortran/44047

! Double free happened, check that it works now.

! Contributed by Janus Weil, janus@gcc.gnu.org.

implicit none

type t0

 integer :: j = 42

end type t0

type t

 integer :: i

 class(t0), allocatable :: foo

end type t

type(t) :: m

allocate(t0 :: m%foo)

m%i = 5

select type(bar => m%foo)

type is(t0)

 print *, bar

 if (bar%j /= 42) call abort ()

end select

end