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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [layered_instance.adb] - Blame information for rev 378

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


-- { dg-do compile }
 
with Layered_Abstraction_P;
with layered_abstraction;
procedure layered_instance is
   package s1 is new Layered_Abstraction_P (Integer, 15);
   package S2 is new Layered_Abstraction_P (Integer, 20);
   package Inst is new layered_abstraction (S1, S2);
begin
   null;
end;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do compile }`
2
3			`with Layered_Abstraction_P;`
4			`with layered_abstraction;`
5			`procedure layered_instance is`
6			`package s1 is new Layered_Abstraction_P (Integer, 15);`
7			`package S2 is new Layered_Abstraction_P (Integer, 20);`
8			`package Inst is new layered_abstraction (S1, S2);`
9			`begin`
10			`null;`
11			`end;`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [layered_instance.adb] - Blame information for rev 378