3 ! PR 44696: [OOP] ASSOCIATED fails on polymorphic variables
5 ! Original test case by Hans-Werner Boschmann <boschmann@tp1.physik.uni-siegen.de>
6 ! Modified by Janus Weil <janus@gcc.gnu.org>
11 class(node_type
),pointer::parent
,child
14 class(node_type
),pointer::root
17 root
%child
%parent
=>root
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()