gcc/testsuite/gnat.dg/atomic5.adb

   1 package body Atomic5 is
   2
   3   function Create return R is
   4   begin
   5     return (A => 0, B => 1, C => 2, D => 4);
   6   end;
   7
   8   procedure Proc1 is
   9     I : Unsigned_32;
  10   begin
  11     I := Conv(Create);
  12   end;
  13
  14   procedure Proc2 is
  15     I : Unsigned_32;
  16   begin
  17     I := Conv(R'(A => 0, B => 1, C => 2, D => 4));
  18   end;
  19
  20 end Atomic5;