gcc/testsuite/gnat.dg/slice8.adb


1
2
3
4
5
6
7
8
9
10
11
12
13

-- { dg-do compile }
-- { dg-options "-gnatws" }

with Slice8_Pkg1;
with Slice8_Pkg3;

procedure Slice8 is

   package Bp is new Slice8_Pkg3 (Slice8_Pkg1);

begin
   null;
end;