Subversion Repositories openrisc

! { dg-do run }

!

! PR 44696: [OOP] ASSOCIATED fails on polymorphic variables

!

! Original test case by Hans-Werner Boschmann 

! Modified by Janus Weil 

program rte1

  implicit none

  type::node_type

     class(node_type),pointer::parent,child

     integer::id

  end type node_type

  class(node_type),pointer::root

  allocate(root)

  allocate(root%child)

  root%child%parent=>root

  root%id=1

  root%child%id=2

  print *,root%child%id," is child of ",root%id,":"

  print *,root%child%parent%id,root%id

  if (.not. associated(root%child%parent,root)) call abort()

end program rte1