From: Pierre-Marie de Rodat <derodat@adacore.com>
Date: Thu, 12 Dec 2019 10:01:36 +0000 (+0000)
Subject: [Ada] Remove implicit anonymous access conversion in testcase
X-Git-Tag: misc/cutover-git~541
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c38d4670d72427a12035a93cc3c6174f17825443;p=thirdparty%2Fgcc.git

[Ada] Remove implicit anonymous access conversion in testcase

2019-12-12  Pierre-Marie de Rodat  <derodat@adacore.com>

gcc/testsuite/

	* gnat.dg/subp_inst_pkg.adb: Remove implicit anonymous access
	conversion.

From-SVN: r279276
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8488ae942cd1..9174880af754 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2019-12-12  Pierre-Marie de Rodat  <derodat@adacore.com>
+
+	* gnat.dg/subp_inst_pkg.adb: Remove implicit anonymous access
+	conversion.
+
 2019-12-11  Jakub Jelinek  <jakub@redhat.com>
 
 	PR target/92723
diff --git a/gcc/testsuite/gnat.dg/subp_inst_pkg.adb b/gcc/testsuite/gnat.dg/subp_inst_pkg.adb
index 8fd2663fbde5..72b4fe893c1f 100644
--- a/gcc/testsuite/gnat.dg/subp_inst_pkg.adb
+++ b/gcc/testsuite/gnat.dg/subp_inst_pkg.adb
@@ -14,7 +14,7 @@ package body Subp_Inst_Pkg is
       function Convert is new Ada.Unchecked_Conversion
          (T_Access, System.Address);
    begin
-      return System.Address_Image (Convert (Val));
+      return System.Address_Image (Convert (T_Access (Val)));
    end T_Image;
 
 end Subp_Inst_Pkg;