Subversion Repositories openrisc_me

! { dg-do run }

!

! PR 41714: [OOP] ALLOCATE SOURCE= does not properly copy the value from SOURCE

!

! Contributed by Tobias Burnus 

type t

  integer :: i

end type t

type, extends(t) :: t2

  integer :: j

end type t2

class(t), allocatable :: a

allocate(a, source=t2(1,2))

print *,a%i

if(a%i /= 1) call abort()

select type (a)

  type is (t2)

     print *,a%j

     if(a%j /= 2) call abort()

end select

end