From: Eric Botcazou <ebotcazou@gcc.gnu.org>
Date: Sun, 3 May 2020 09:22:22 +0000 (+0200)
Subject: Fix incorrect use of 'Unrestricted_Access in testcase
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=18a6e4130fb3c63a974295a18ed6e4bef070df03;p=gcc.git

Fix incorrect use of 'Unrestricted_Access in testcase
---

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;