gcc/testsuite/gfortran.dg/typebound_proc_18.f03

   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
   7 module Merger_Trees
   8   private
   9   public :: mergerTree
  10
  11   type mergerTree
  12    contains
  13      procedure :: getNode => Tree_Node_Get
  14   end type mergerTree
  15
  16 contains
  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
  27 end module Merger_Trees
  28
  29 ! { dg-final { cleanup-modules "Merger_Trees" } }