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/] [aggr2.adb] - Blame information for rev 304

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


-- { dg-do compile }
 
procedure aggr2 is
   task type T_Task;
-- 
   task body T_Task is begin null; end;
-- 
   type Lim_Rec is record
      T : T_Task;
   end record;
-- 
   generic
      Formal : Lim_Rec;
   package P_G is
   end P_G;
-- 
   package P is new P_G (Formal => (T => <>));
begin
   null;
end;
 

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do compile }`
2
3			`procedure aggr2 is`
4			`task type T_Task;`
5			`--`
6			`task body T_Task is begin null; end;`
7			`--`
8			`type Lim_Rec is record`
9			`T : T_Task;`
10			`end record;`
11			`--`
12			`generic`
13			`Formal : Lim_Rec;`
14			`package P_G is`
15			`end P_G;`
16			`--`
17			`package P is new P_G (Formal => (T => <>));`
18			`begin`
19			`null;`
20			`end;`
21

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gnat.dg/] [aggr2.adb] - Blame information for rev 304