trans.c (Gigi_Types_Compatible): New predicate.

	* gcc-interface/trans.c (Gigi_Types_Compatible): New predicate.
	(Identifier_to_gnu): Use it to assert that the type of the identifier
	and that of its entity are compatible for gigi.  Rename a couple of
	local variables and separate the processing of the result type.

From-SVN: r271650

gcc/ada/ChangeLog

 2019-05-27  Eric Botcazou  <ebotcazou@adacore.com>
 
+	* gcc-interface/trans.c (Gigi_Types_Compatible): New predicate.
+	(Identifier_to_gnu): Use it to assert that the type of the identifier
+	and that of its entity are compatible for gigi.  Rename a couple of
+	local variables and separate the processing of the result type.
+
+2019-05-27  Eric Botcazou  <ebotcazou@adacore.com>
+
 	* gcc-interface/trans.c (Call_to_gnu): Use the unpadded type when
 	putting back an intermediate conversion the type of the actuals.
 

gcc/testsuite/ChangeLog

 2019-05-27  Eric Botcazou  <ebotcazou@adacore.com>
 
+	* gnat.dg/limited_with7.ad[sb]: New test.
+	* gnat.dg/limited_with7_pkg.ads: New helper.
+
+2019-05-27  Eric Botcazou  <ebotcazou@adacore.com>
+
 	* gnat.dg/unchecked_convert13.adb: New test.
 
 2019-05-27  Richard Biener  <rguenther@suse.de>

gcc/testsuite/gnat.dg/limited_with7.adb

+-- { dg-do compile }
+
+with Limited_With7_Pkg; use Limited_With7_Pkg;
+
+package body Limited_With7 is
+
+   procedure Proc (R : out Limited_With7_Pkg.Rec) is
+   begin
+      R.I := 0;
+   end;
+
+end Limited_With7;

gcc/testsuite/gnat.dg/limited_with7.ads

+limited with Limited_With7_Pkg;
+
+package Limited_With7 is
+
+   procedure Proc (R : out Limited_With7_Pkg.Rec);
+
+end Limited_With7;

gcc/testsuite/gnat.dg/limited_with7_pkg.ads

+package Limited_With7_Pkg is
+
+   type Rec;
+
+   type Rec is record
+      I : Integer;
+   end record;
+
+end Limited_With7_Pkg;