1! { dg-do run } 2! 3! PR 44696: [OOP] ASSOCIATED fails on polymorphic variables 4! 5! Original test case by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de> 6! Modified by Janus Weil <janus@gcc.gnu.org> 7 8program rte1 9 implicit none 10 type::node_type 11 class(node_type),pointer::parent,child 12 integer::id 13 end type node_type 14 class(node_type),pointer::root 15 allocate(root) 16 allocate(root%child) 17 root%child%parent=>root 18 root%id=1 19 root%child%id=2 20 print *,root%child%id," is child of ",root%id,":" 21 print *,root%child%parent%id,root%id 22 if (.not. associated(root%child%parent,root)) call abort() 23end program rte1 24