Subversion Repositories openrisc

! { dg-do compile }

! Check for re-definition of inherited components in the sub-type.

MODULE m1

  IMPLICIT NONE

  TYPE supert

    INTEGER :: c1

    INTEGER, PRIVATE :: c2

  END TYPE supert

END MODULE m1

MODULE m2

  USE m1 ! { dg-error "already in the parent type" }

  IMPLICIT NONE

  TYPE, EXTENDS(supert) :: subt

    INTEGER :: c1 ! { dg-error "already in the parent type" }

    INTEGER :: c2 ! { dg-error "already in the parent type" }

  END TYPE subt

END MODULE m2

! { dg-final { cleanup-modules "m1 m2" } }