Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/limited_with4_pkg.ads @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +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;