3 ! PR 54881: [4.8 Regression] [OOP] ICE in fold_convert_loc, at fold-const.c:2016
\r
5 ! Contributed by Richard L Lozes <richard@lozestech.com>
\r
12 class(treeNode), pointer :: theNode
\r
15 select type( theNode )
\r
17 call DestroyNode (theNode, lstatus )
\r
19 call DestroyNode (theNode, lstatus )
\r
24 subroutine DestroyNode( theNode, lstatus )
\r
25 type(treeNode), pointer :: theNode
\r
26 logical, intent(out) :: lstatus
\r