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