gcc/testsuite/gnat.dg/pack13.adb

   1 -- [ dg-do compile }
   2
   3 package body Pack13 is
   4
   5   procedure Set (Myself : Object_Ptr; The_Data : Thirty_Two_Bits.Object) is
   6   begin
   7     Myself.Something.Data_1 := The_Data;
   8   end;
   9
  10 end Pack13;