gcc/testsuite/gnat.dg/atomic1.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-O0 -fdump-tree-gimple" }
   3
   4 with Atomic1_Pkg; use Atomic1_Pkg;
   5
   6 procedure Atomic1 is
   7
   8    C_16 : constant R16 := (2, 3, 5, 7);
   9    C_32 : constant R32 := (1, 1, 2, 3, 5, 8, 13, 5);
  10
  11 begin
  12    V_16 := C_16;
  13    V_32 := C_32;
  14 end;
  15
  16 -- { dg-final { scan-tree-dump-times "v_16" 1 "gimple"} }
  17 -- { dg-final { scan-tree-dump-times "v_32" 1 "gimple"} }