gcc/testsuite/gnat.dg/type_conv.adb

   1 -- { dg-do compile }
   2
   3 procedure type_conv is
   4    type Str is new String;
   5    generic
   6    package G is private end;
   7    package body G is
   8       Name : constant String := "it";
   9       Full_Name : Str := Str (Name & " works");
  10    end G;
  11    package Inst is new G;
  12 begin
  13    null;
  14 end;