1! { dg-do compile } 2! Check for re-definition of inherited components in the sub-type. 3 4MODULE m1 5 IMPLICIT NONE 6 7 TYPE supert 8 INTEGER :: c1 9 INTEGER, PRIVATE :: c2 10 END TYPE supert 11 12END MODULE m1 13 14MODULE m2 15 USE m1 ! { dg-error "already in the parent type" } 16 IMPLICIT NONE 17 18 TYPE, EXTENDS(supert) :: subt 19 INTEGER :: c1 ! { dg-error "already in the parent type" } 20 INTEGER :: c2 ! { dg-error "already in the parent type" } 21 END TYPE subt 22 23END MODULE m2 24