| ! { dg-do compile } |
| ! |
| ! PR fortran/51754 |
| ! This program was leading to an ICE related to class arrays |
| ! |
| ! Contributed by Andrew Benson <abenson@caltech.edu> |
| |
| module test |
| private |
| |
| type :: componentB |
| end type componentB |
| |
| type :: treeNode |
| class(componentB), allocatable, dimension(:) :: componentB |
| end type treeNode |
| |
| contains |
| |
| function BGet(self) |
| implicit none |
| class(componentB), pointer :: BGet |
| class(treeNode), target, intent(in) :: self |
| select type (self) |
| class is (treeNode) |
| BGet => self%componentB(1) |
| end select |
| return |
| end function BGet |
| |
| end module test |