gcc/testsuite/gnat.dg/slice8.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-gnatws" }
   3
   4 with Slice8_Pkg1;
   5 with Slice8_Pkg3;
   6
   7 procedure Slice8 is
   8
   9    package Bp is new Slice8_Pkg3 (Slice8_Pkg1);
  10
  11 begin
  12    null;
  13 end;