! { dg-do compile } | |
! | |
! PR 54881: [4.8 Regression] [OOP] ICE in fold_convert_loc, at fold-const.c:2016 | |
! | |
! Contributed by Richard L Lozes <richard@lozestech.com> | |
implicit none | |
type treeNode | |
end type | |
class(treeNode), pointer :: theNode | |
logical :: lstatus | |
select type( theNode ) | |
type is (treeNode) | |
call DestroyNode (theNode, lstatus ) | |
class is (treeNode) | |
call DestroyNode (theNode, lstatus ) | |
end select | |
contains | |
subroutine DestroyNode( theNode, lstatus ) | |
type(treeNode), pointer :: theNode | |
logical, intent(out) :: lstatus | |
end subroutine | |
end |