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

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


-- { dg-do compile }
 
with ICE_Types; use ICE_Types;
procedure ICE_Type is
   type Local_Float_T is new Float_View_T;
   LF : Local_Float_T;
begin
   Initialize (Float_View_T (LF));
end;

Line No.	Rev	Author	Line
1	304	jeremybenn	`-- { dg-do compile }`
2
3			`with ICE_Types; use ICE_Types;`
4			`procedure ICE_Type is`
5			`type Local_Float_T is new Float_View_T;`
6			`LF : Local_Float_T;`
7			`begin`
8			`Initialize (Float_View_T (LF));`
9			`end;`

Browse

Tools

Subversion Repositories openrisc_me

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