Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gnat.dg/bias1.adb @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 -- { dg-do compile }
2 -- { dg-options "-cargs -g -dA -gnatws -fgnat-encodings=gdb -margs" }
3 -- { dg-final { scan-assembler "DW_AT_GNU_bias" } }
4
5 procedure Bias1 is
6 type Small is range -7 .. -4;
7 for Small'Size use 2;
8 Y : Small := -5;
9 Y1 : Small := -7;
10
11 type Byte is mod 256;
12 type Repeat_Count_T is new Byte range 1 .. 2 ** 6;
13 for Repeat_Count_T'Size use 6;
14 X : Repeat_Count_T := 64;
15 X1 : Repeat_Count_T := 1;
16
17 type Char_Range is range 65 .. 68;
18 for Char_Range'Size use 2;
19 Cval : Char_Range := 65;
20
21 type SomePackedRecord is record
22 R: Small;
23 S: Small;
24 end record;
25 pragma Pack (SomePackedRecord);
26 SPR : SomePackedRecord := (R => -4, S => -5);
27
28 type Packed_Array is array (1 .. 3) of Small;
29 pragma pack (Packed_Array);
30 A : Packed_Array := (-7, -5, -4);
31
32 begin
33 null;
34 end Bias1;