3 ! PR 45456: [4.6 Regression] [OOP] Bogus pointer initialization error on pointer-valued TBP
5 ! Contributed by Andrew Benson <abenson@its.caltech.edu>
13 procedure :: getNode => Tree_Node_Get
18 function Tree_Node_Get(thisTree,nodeIndex) result(foundNode)
20 class(mergerTree), intent(inout) :: thisTree
21 integer, intent(in) :: nodeIndex
22 integer, pointer :: foundNode
25 end function Tree_Node_Get
27 end module Merger_Trees
29 ! { dg-final { cleanup-modules "Merger_Trees" } }