1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/access_func.adb b/gcc/testsuite/gnat.dg/access_func.adb
new file mode 100644
index 000000000..8354e7453
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/access_func.adb
@@ -0,0 +1,10 @@
+-- { dg-do compile }
+
+procedure access_func is
+    type Abomination is access
+       function (X : Integer) return access
+       function (Y : Float) return access
+       function return Integer;
+begin
+    null;
+end;