Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/sizetype2.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 run } procedure Sizetype2 is function Ident_Int (X : Integer) return Integer is begin return X; end; type A is array (Integer range <>) of Boolean; subtype T1 is A (Ident_Int (- 6) .. Ident_Int (Integer'Last - 4)); subtype T2 is A (- 6 .. Ident_Int (Integer'Last - 4)); subtype T3 is A (Ident_Int (- 6) .. Integer'Last - 4); begin if T1'Size /= 17179869200 then raise Program_Error; end if; if T2'Size /= 17179869200 then raise Program_Error; end if; if T3'Size /= 17179869200 then raise Program_Error; end if; end;