1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/aliasing3_pkg.ads b/gcc/testsuite/gnat.dg/aliasing3_pkg.ads
new file mode 100644
index 000000000..4704a7c53
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/aliasing3_pkg.ads
@@ -0,0 +1,19 @@
+package Aliasing3_Pkg is
+
+  type Arr is array (1..3) of Integer;
+
+  procedure Test (A : Arr);
+  pragma Inline (Test);
+
+  type My_Arr is new Arr;
+
+  type Rec is record
+    A : My_Arr;
+  end record;
+
+  type Ptr is access all Rec;
+
+  Block : aliased Rec;
+  Pointer : Ptr := Block'Access;
+
+end Aliasing3_Pkg;