Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/lto24_pkg1.ads @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | |
children |
line wrap: on
line source
with Lto24_Pkg2; package Lto24_Pkg1 is Max_Elem : constant Natural := Lto24_Pkg2.Get; type Arr is array (Natural range <>) of Boolean; type Rec (B : Boolean) is record I : Integer; case B is when True => A : Arr (1 .. Max_Elem); when False => Empty : Boolean; end case; end record; end Lto24_Pkg1;