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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [abstract_private.ads] - Blame information for rev 338

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

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [specs/] [abstract_private.ads] - Blame information for rev 338