gcc-4.9/gcc/testsuite/gnat.dg/pack20.adb


1
2
3
4
5
6
7
8
9

package body Pack20 is

   procedure Proc (A : Rec) is
      Local : Rec := A;
   begin
      Modify (Local.Fixed);
   end;

end Pack20;