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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [limited_with3.ads] - Blame information for rev 715

Go to most recent revision | Details | Compare with Previous | View Log


with Limited_With3_Pkg1;
with Limited_With3_Pkg2;
limited with Limited_With3_Pkg3;
 
package Limited_With3 is
 
     procedure Dummy;
 
     type T is tagged private;
 
private
 
     package My_Q is new Limited_With3_Pkg1 (Limited_With3_Pkg2.T);
 
     type T is tagged null record;
 
end Limited_With3;

Line No.	Rev	Author	Line
1	696	jeremybenn	`with Limited_With3_Pkg1;`
2			`with Limited_With3_Pkg2;`
3			`limited with Limited_With3_Pkg3;`
4
5			`package Limited_With3 is`
6
7			`procedure Dummy;`
8
9			`type T is tagged private;`
10
11			`private`
12
13			`package My_Q is new Limited_With3_Pkg1 (Limited_With3_Pkg2.T);`
14
15			`type T is tagged null record;`
16
17			`end Limited_With3;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [limited_with3.ads] - Blame information for rev 715