gcc/testsuite/gnat.dg/atomic5.adb

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