URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [extends_7.f03] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! Check for re-definition of inherited components in the sub-type.`	`! Check for re-definition of inherited components in the sub-type.`

`MODULE m1`	`MODULE m1`
`IMPLICIT NONE`	`IMPLICIT NONE`

`TYPE supert`	`TYPE supert`
`INTEGER :: c1`	`INTEGER :: c1`
`INTEGER, PRIVATE :: c2`	`INTEGER, PRIVATE :: c2`
`END TYPE supert`	`END TYPE supert`

`END MODULE m1`	`END MODULE m1`

`MODULE m2`	`MODULE m2`
`USE m1 ! { dg-error "already in the parent type" }`	`USE m1 ! { dg-error "already in the parent type" }`
`IMPLICIT NONE`	`IMPLICIT NONE`

`TYPE, EXTENDS(supert) :: subt`	`TYPE, EXTENDS(supert) :: subt`
`INTEGER :: c1 ! { dg-error "already in the parent type" }`	`INTEGER :: c1 ! { dg-error "already in the parent type" }`
`INTEGER :: c2 ! { dg-error "already in the parent type" }`	`INTEGER :: c2 ! { dg-error "already in the parent type" }`
`END TYPE subt`	`END TYPE subt`

`END MODULE m2`	`END MODULE m2`

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