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