1 files changed, 25 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/specs/access3.ads b/gcc/testsuite/gnat.dg/specs/access3.ads
new file mode 100644
index 000000000..f7fbf7e1e
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/access3.ads
@@ -0,0 +1,25 @@
+--  { dg-do compile }
+
+package access3 is
+   type TF is access function return access procedure (P1 : Integer);
+   
+   type TAF is access protected function return access procedure (P1 : Integer);
+   
+   type TAF2 is access
+     function return access protected procedure (P1 : Integer);
+   
+   type TAF3 is access
+     protected function return access protected procedure (P1 : Integer);
+   
+   type TAF_Inf is
+      access protected function return
+         access function return
+         access function return
+         access function return
+         access function return
+         access function return
+         access function return
+         access function return
+         access function return
+      Integer;
+end access3;