Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/51754

! This program was leading to an ICE related to class arrays

!

! Contributed by Andrew Benson 

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

! { dg-final { cleanup-modules "test" } }