trunk/gcc/testsuite/gnat.dg/str1.adb

   1 --  { dg-do compile }
   2
   3 procedure str1 is
   4    Str : constant string := "--";
   5    generic
   6    package Gen is
   7       procedure P;
   8    end Gen;
   9    package body Gen is
  10       procedure P is
  11          inner : String := Str;
  12       begin
  13          null;
  14       end;
  15    end Gen;
  16
  17    package Inst is new Gen;
  18 begin
  19    null;
  20 end;