1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/addr1.adb b/gcc/testsuite/gnat.dg/addr1.adb
new file mode 100644
index 000000000..5f5ff5356
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/addr1.adb
@@ -0,0 +1,19 @@
+--  { dg-do compile }
+
+with System;
+package body addr1 is
+   task type T is
+      entry Send (Location : System.Address);
+   end;
+   task body T is
+   begin
+      accept Send (Location : System.Address) do
+        declare
+           Buffer : String (1 .. 100);
+           for Buffer'Address use Location;  --  Test
+        begin
+           null;
+        end;
+     end Send;
+   end;
+end;