summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/gnatg.adb
blob: 4f09cb654935fe8a1ebe76bee4c2de323658f46b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
-- { 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;