gcc/testsuite/gfortran.dg/extends_7.f03

   1 ! { dg-do compile }
   2 ! Check for re-definition of inherited components in the sub-type.
   3
   4 MODULE m1
   5   IMPLICIT NONE
   6
   7   TYPE supert
   8     INTEGER :: c1
   9     INTEGER, PRIVATE :: c2
  10   END TYPE supert
  11
  12 END MODULE m1
  13
  14 MODULE 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
  23 END MODULE m2
  24
  25 ! { dg-final { cleanup-modules "m1 m2" } }