[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 8488ae942cd1aafd3432d8c0a2df15e0626d501c..9174880af754e489152141d8fd896a50d96789c6 100644 (file)
--- 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 8fd2663fbde5c9bfba6ec48b376e888c36adef17..72b4fe893c1f1f04558b0e360077751bb18954fd 100644 (file)
--- 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;