Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/46356

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

!

! Original testcase by Ian Harvey 

! Reduced by Janus Weil 

  IMPLICIT NONE

  TYPE :: ParentVector

    INTEGER :: a

  END TYPE ParentVector

CONTAINS

  SUBROUTINE vector_operation(pvec)

    CLASS(ParentVector), INTENT(INOUT) :: pvec(:)

    print *,pvec(1)%a

  END SUBROUTINE

END