Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/rep_clause6.ads @ 140:4e440907fcbf
copy CbC goto flang in cfgexpand
remove some CbC unnecessary code
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 14 Nov 2018 00:24:45 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
package Rep_Clause6 is type B1_Type is range 0 .. 2**1 - 1; for B1_Type'Size use 1; type U10_Type is range 0 .. 2**10 - 1; for U10_Type'Size use 10; type B5_Type is range 0 .. 2**5 - 1; for B5_Type'Size use 5; type B11_Type is range 0 .. 2**11 - 1; for B11_Type'Size use 11; type Rec1 is record B1 : B1_Type; U10 : U10_Type; B5 : B5_Type; end record; for Rec1 use record B1 at 0 range 0 .. 0; U10 at 0 range 1 .. 10; B5 at 0 range 11 .. 15; end record; for Rec1'Size use 16; type Arr is array (1 .. 5) of Rec1; for Arr'Size use 80; subtype Header_Type is String (1 .. 16); type Rec2 is record Header : Header_Type; Spare_5 : B5_Type; Deleted_Reports : Arr; Block_End : B11_Type; end record; for Rec2 use record Header at 0 range 0 .. 127; Spare_5 at 16 range 0 .. 4; Deleted_Reports at 16 range 5 .. 84; Block_End at 24 range 21 .. 31; end record; for Rec2'Size use 224; type Enum is (A_Msg, B_Msg, C_Msg, D_Msg); type Rec3 (Msg_Type : Enum := Enum'First) is record case Msg_Type is when A_Msg => A_M : Arr; when B_Msg => B_M : Arr; when C_Msg => C_M : Rec2; when others => null; end case; end record; procedure Dummy; end Rep_Clause6;