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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [gnatg.adb] - Blame information for rev 801

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


-- { dg-do compile }
-- { dg-options "-gnatD" }
 
with System;
with Ada.Unchecked_Conversion;
procedure gnatg is
   subtype Address is System.Address;
   type T is access procedure;
   function Cvt is new Ada.Unchecked_Conversion (Address, T);
   X : T;
begin
   X := Cvt (Gnatg'Address);
end gnatg;

Line No.	Rev	Author	Line
1	696	jeremybenn	`-- { dg-do compile }`
2			`-- { dg-options "-gnatD" }`
3
4			`with System;`
5			`with Ada.Unchecked_Conversion;`
6			`procedure gnatg is`
7			`subtype Address is System.Address;`
8			`type T is access procedure;`
9			`function Cvt is new Ada.Unchecked_Conversion (Address, T);`
10			`X : T;`
11			`begin`
12			`X := Cvt (Gnatg'Address);`
13			`end gnatg;`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [gnatg.adb] - Blame information for rev 801