1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/access2.adb b/gcc/testsuite/gnat.dg/access2.adb
new file mode 100644
index 000000000..fd91dbea9
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/access2.adb
@@ -0,0 +1,18 @@
+-- { dg-do compile }
+
+procedure access2 is
+  Arr : array (1..10) of aliased Float;
+  type Acc is access all Float;
+  procedure Set (X : integer) is
+     Buffer: String (1..8);
+     for Buffer'address use Arr (4)'address;
+  begin
+     Arr (X) := 31.1415;
+  end;
+  function Get (C : Integer) return Acc is
+  begin
+     return Arr (C)'access;
+  end;
+begin
+   null;
+end;