OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [extends_7.f03] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { 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" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.