[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
This commit is contained in:
Pierre-Marie de Rodat 2019-12-12 10:01:36 +00:00 committed by Pierre-Marie de Rodat
parent fbf8314b0a
commit c38d4670d7
2 changed files with 6 additions and 1 deletions

View File

@ -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

View File

@ -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;