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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [abstract_private.ads] - Blame information for rev 304

Details | Compare with Previous | View Log


generic
package Abstract_Private is
 
   type T1 is abstract tagged private;
   procedure P1 (X : T1) is abstract;
 
   type T2 is abstract tagged private;
 
private
 
   type T1 is abstract tagged null record;
   procedure P2 (X : T1) is abstract; -- { dg-error "must be visible" }
 
   type T2 is abstract new T1 with null record;
   procedure P1 (X : T2) is abstract;
 
end Abstract_Private;

Line No.	Rev	Author	Line
1	304	jeremybenn	`generic`
2			`package Abstract_Private is`
3
4			`type T1 is abstract tagged private;`
5			`procedure P1 (X : T1) is abstract;`
6
7			`type T2 is abstract tagged private;`
8
9			`private`
10
11			`type T1 is abstract tagged null record;`
12			`procedure P2 (X : T1) is abstract; -- { dg-error "must be visible" }`
13
14			`type T2 is abstract new T1 with null record;`
15			`procedure P1 (X : T2) is abstract;`
16
17			`end Abstract_Private;`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [abstract_private.ads] - Blame information for rev 304