1! { dg-do compile } 2! 3! PR 45456: [4.6 Regression] [OOP] Bogus pointer initialization error on pointer-valued TBP 4! 5! Contributed by Andrew Benson <abenson@its.caltech.edu> 6 7module Merger_Trees 8 private 9 public :: mergerTree 10 11 type mergerTree 12 contains 13 procedure :: getNode => Tree_Node_Get 14 end type mergerTree 15 16contains 17 18 function Tree_Node_Get(thisTree,nodeIndex) result(foundNode) 19 implicit none 20 class(mergerTree), intent(inout) :: thisTree 21 integer, intent(in) :: nodeIndex 22 integer, pointer :: foundNode 23 24 return 25 end function Tree_Node_Get 26 27end module Merger_Trees 28