1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/addr5.adb b/gcc/testsuite/gnat.dg/addr5.adb
new file mode 100644
index 000000000..e331dfdc0
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/addr5.adb
@@ -0,0 +1,10 @@
+-- { dg-do compile }
+-- { dg-options "-g" }
+
+procedure Addr5 (Len : Integer) is
+  S : aliased String (1 .. Len) := (others => ' ');
+  C : Character;
+  for C'Address use S'Address;
+begin
+  null;
+end;