From 18a6e4130fb3c63a974295a18ed6e4bef070df03 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 3 May 2020 11:22:22 +0200 Subject: [PATCH] Fix incorrect use of 'Unrestricted_Access in testcase --- 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 + + * gnat.dg/limited1_inner.adb (Finalize): Use 'Unrestricted_Access. + 2020-05-02 H.J. Lu 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; -- 2.30.2