URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 304 |
Rev 338 |
-- { dg-do compile }
|
-- { dg-do compile }
|
-- { dg-options "-gnatD" }
|
-- { dg-options "-gnatD" }
|
|
|
with System;
|
with System;
|
with Ada.Unchecked_Conversion;
|
with Ada.Unchecked_Conversion;
|
procedure gnatg is
|
procedure gnatg is
|
subtype Address is System.Address;
|
subtype Address is System.Address;
|
type T is access procedure;
|
type T is access procedure;
|
function Cvt is new Ada.Unchecked_Conversion (Address, T);
|
function Cvt is new Ada.Unchecked_Conversion (Address, T);
|
X : T;
|
X : T;
|
begin
|
begin
|
X := Cvt (Gnatg'Address);
|
X := Cvt (Gnatg'Address);
|
end gnatg;
|
end gnatg;
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.