URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [ice_type.adb] - Blame information for rev 437

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_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gnat.dg/] [ice_type.adb] - Blame information for rev 437