Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/limited_with4_pkg.ads @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
with Limited_With4; package Limited_With4_Pkg is P1 : Limited_With4.Ptr1 := Limited_With4.Proc1'Access; P2 : Limited_With4.Ptr2 := Limited_With4.Proc2'Access; type Rec12 is record I : Integer; R : Limited_With4.Rec1; end record; type Rec22 is record I : Integer; R : Limited_With4.Rec2; end record; end Limited_With4_Pkg;