1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/aliasing3.adb b/gcc/testsuite/gnat.dg/aliasing3.adb
new file mode 100644
index 000000000..916821c55
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/aliasing3.adb
@@ -0,0 +1,10 @@
+-- { dg-do run }
+-- { dg-options "-O2 -gnatn" }
+
+with Aliasing3_Pkg; use Aliasing3_Pkg;
+
+procedure Aliasing3 is
+begin
+  Pointer.A(1) := 5;
+  Test (Block.A);
+end;