view gcc/testsuite/gnat.dg/generic_inst6_x.ads @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
line wrap: on
line source

with Generic_Inst6_G1;
generic
   with package G2 is new Generic_Inst6_G1 (<>);
   with package G3 is new Generic_Inst6_G1 (<>);
package Generic_Inst6_X is
   Result : Integer := G2.Val * G3.Val;
end;