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