From c38d4670d72427a12035a93cc3c6174f17825443 Mon Sep 17 00:00:00 2001 From: Pierre-Marie de Rodat Date: Thu, 12 Dec 2019 10:01:36 +0000 Subject: [PATCH] [Ada] Remove implicit anonymous access conversion in testcase 2019-12-12 Pierre-Marie de Rodat gcc/testsuite/ * gnat.dg/subp_inst_pkg.adb: Remove implicit anonymous access conversion. From-SVN: r279276 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gnat.dg/subp_inst_pkg.adb | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8488ae942cd..9174880af75 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2019-12-12 Pierre-Marie de Rodat + + * gnat.dg/subp_inst_pkg.adb: Remove implicit anonymous access + conversion. + 2019-12-11 Jakub Jelinek PR target/92723 diff --git a/gcc/testsuite/gnat.dg/subp_inst_pkg.adb b/gcc/testsuite/gnat.dg/subp_inst_pkg.adb index 8fd2663fbde..72b4fe893c1 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; -- 2.30.2