Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/atomic3.adb @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do compile } procedure Atomic3 is type Unsigned_32_T is mod 2 ** 32; for Unsigned_32_T'Size use 32; type Id_T is (One, Two, Three); type Array_T is array (Id_T) of Unsigned_32_T; pragma Atomic_Components (Array_T); A : Array_T := (others => 0); function Get_Array return Array_T is begin return A; end; X : Array_T; begin X := Get_Array; end;