1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/inline_scope.adb b/gcc/testsuite/gnat.dg/inline_scope.adb
new file mode 100644
index 000000000..d83ce184f
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/inline_scope.adb
@@ -0,0 +1,15 @@
+-- { dg-do compile }
+-- { dg-options "-gnatN" }
+
+with inline_scope_p;
+procedure inline_scope (X : Integer) is
+   type A is array (Integer range 1 .. 2) of Boolean;
+   S : A;  
+   pragma Warnings (Off, S);
+   procedure Report_List  is
+   begin   
+      inline_scope_p.Assert (S (1), Natural'Image (Natural (1)));
+   end Report_List;
+begin   
+   null;   
+end;