annotate gcc/testsuite/gfortran.dg/extends_7.f03 @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do compile }
kono
parents:
diff changeset
2 ! Check for re-definition of inherited components in the sub-type.
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 MODULE m1
kono
parents:
diff changeset
5 IMPLICIT NONE
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 TYPE supert
kono
parents:
diff changeset
8 INTEGER :: c1
kono
parents:
diff changeset
9 INTEGER, PRIVATE :: c2
kono
parents:
diff changeset
10 END TYPE supert
kono
parents:
diff changeset
11
kono
parents:
diff changeset
12 END MODULE m1
kono
parents:
diff changeset
13
kono
parents:
diff changeset
14 MODULE m2
kono
parents:
diff changeset
15 USE m1 ! { dg-error "already in the parent type" }
kono
parents:
diff changeset
16 IMPLICIT NONE
kono
parents:
diff changeset
17
kono
parents:
diff changeset
18 TYPE, EXTENDS(supert) :: subt
kono
parents:
diff changeset
19 INTEGER :: c1 ! { dg-error "already in the parent type" }
kono
parents:
diff changeset
20 INTEGER :: c2 ! { dg-error "already in the parent type" }
kono
parents:
diff changeset
21 END TYPE subt
kono
parents:
diff changeset
22
kono
parents:
diff changeset
23 END MODULE m2