1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/str1.adb b/gcc/testsuite/gnat.dg/str1.adb
new file mode 100644
index 000000000..833d0f1d1
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/str1.adb
@@ -0,0 +1,20 @@
+--  { dg-do compile }
+
+procedure str1 is
+   Str : constant string := "--";
+   generic
+   package Gen is
+      procedure P;
+   end Gen;
+   package body Gen is
+      procedure P is
+         inner : String := Str;
+      begin
+         null;
+      end;
+   end Gen;
+   
+   package Inst is new Gen;
+begin
+   null;
+end;