[gcc(refs/users/wschmidt/heads/pu-upstream)] Fix incorrect use of 'Unrestricted_Access in testcase

[gcc(refs/users/wschmidt/heads/pu-upstream)] Fix incorrect use of 'Unrestricted_Access in testcase

[William Schmidt]

https://gcc.gnu.org/g:18a6e4130fb3c63a974295a18ed6e4bef070df03

commit 18a6e4130fb3c63a974295a18ed6e4bef070df03
Author: Eric Botcazou <ebotcazou@gcc.gnu.org>
Date:   Sun May 3 11:22:22 2020 +0200

    Fix incorrect use of 'Unrestricted_Access in testcase

Diff:
---
 gcc/testsuite/ChangeLog                  | 4 ++++
 gcc/testsuite/gnat.dg/limited1_inner.adb | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b0c6f9a8cef..ee5e80e7862 100644
--- 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 c943b2d44b7..6f9f2aa0060 100644
--- 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;