3 with Unchecked_Conversion;
5 procedure Unchecked_Convert4 is
7 type Uint32 is mod 2**32;
15 function Conv is new Unchecked_Conversion (Uint32, Rec);
17 function F return Uint32;
18 pragma Import (Ada, F);
20 procedure Proc (R : Rec) is begin null; end;