1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/access3.ads b/gcc/testsuite/gnat.dg/access3.ads
new file mode 100644
index 000000000..18d453b32
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/access3.ads
@@ -0,0 +1,11 @@
+
+package access3 is
+   type IT is limited interface;
+   type T is limited new IT with null record;
+   
+   type T2 is tagged limited null record;
+   
+   procedure Op
+     (Obj_T2 : in out T2;
+      Obj_IT : not null access IT'Class);
+end access3;