| ! { 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 |