From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <wschmidt@sourceware.org>
Received: by sourceware.org (Postfix, from userid 1725)
 id 13FC2389202B; Sun,  3 May 2020 17:27:09 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 13FC2389202B
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
 s=default; t=1588526829;
 bh=NfFPED11Q0NCIEM2B6aPcbCFV8vvYKgX5nTQYJ7I8VA=;
 h=From:To:Subject:Date:From;
 b=etn0DnzRkWvNaFdCPzNVV1HrcJokn4uPEopHhM0TkfUcrAhWCM+UzdEGo3nFG/BfO
 yz+zdwMcvwM37sPxHkds4JNZXcspcIZb5RoC4V2EITebnUFJ/4T4BhahWw5txxx9jU
 y6MMfOoB/URaiggafJw81FFgBneRFkfsxTVn6kmM=
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
From: William Schmidt <wschmidt@gcc.gnu.org>
To: gcc-cvs@gcc.gnu.org
Subject: [gcc(refs/users/wschmidt/heads/pu-upstream)] Fix incorrect use of
 'Unrestricted_Access in testcase
X-Act-Checkin: gcc
X-Git-Author: Eric Botcazou <ebotcazou@gcc.gnu.org>
X-Git-Refname: refs/users/wschmidt/heads/pu-upstream
X-Git-Oldrev: 77f45a962fcb372d50c29f16158be03d9177d7aa
X-Git-Newrev: 18a6e4130fb3c63a974295a18ed6e4bef070df03
Message-Id: <20200503172709.13FC2389202B@sourceware.org>
Date: Sun,  3 May 2020 17:27:09 +0000 (GMT)
X-BeenThere: gcc-cvs@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Gcc-cvs mailing list <gcc-cvs.gcc.gnu.org>
List-Unsubscribe: <http://gcc.gnu.org/mailman/options/gcc-cvs>,
 <mailto:gcc-cvs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/gcc-cvs/>
List-Help: <mailto:gcc-cvs-request@gcc.gnu.org?subject=help>
List-Subscribe: <http://gcc.gnu.org/mailman/listinfo/gcc-cvs>,
 <mailto:gcc-cvs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Sun, 03 May 2020 17:27:09 -0000

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;