| ! { dg-do run } |
| ! |
| ! 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 |
| type(treeNode), pointer :: right => null() |
| end type |
| |
| type(treeNode) :: n |
| |
| if (associated(RightOf(n))) STOP 1 |
| allocate(n%right) |
| if (.not.associated(RightOf(n))) STOP 2 |
| deallocate(n%right) |
| |
| contains |
| |
| function RightOf (theNode) |
| class(treeNode), pointer :: RightOf |
| type(treeNode), intent(in) :: theNode |
| RightOf => theNode%right |
| end function |
| |
| end |