Fix incorrect use of 'Unrestricted_Access in testcase

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b0c6f9a8cefdd2063253487d39e7d5b90a37d4ea..ee5e80e7862f181469dc4ccdb243b47045902ecd 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2020-05-03  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gnat.dg/limited1_inner.adb (Finalize): Use 'Unrestricted_Access.
+
 2020-05-02  H.J. Lu  <hongjiu.lu@intel.com>
 
        PR fortran/94788

diff --git a/gcc/testsuite/gnat.dg/limited1_inner.adb b/gcc/testsuite/gnat.dg/limited1_inner.adb
index c943b2d44b7a2b11f2219dc53a0de0e1c07c6283..6f9f2aa0060806edca74f4804b9be6c9e5dcae50 100644 (file)
--- a/gcc/testsuite/gnat.dg/limited1_inner.adb
+++ b/gcc/testsuite/gnat.dg/limited1_inner.adb
@@ -1,7 +1,7 @@
 package body Limited1_Inner is
    overriding procedure Finalize (X : in out Limited_Type) is
    begin
-      if X.Self /= X'Unchecked_Access then
+      if X.Self /= X'Unrestricted_Access then
          raise Program_Error with "Copied!";
       end if;
    end;