[Ada] Unnesting: do not emit warnings for access to subprograms

2018-08-21  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/

	* freeze.adb: Remove warnings for access to subprograms when
	unnesting is active.

From-SVN: r263720

gcc/ada/ChangeLog

 2018-08-21  Ed Schonberg  <schonberg@adacore.com>
 
+	* freeze.adb: Remove warnings for access to subprograms when
+	unnesting is active.
+
+2018-08-21  Ed Schonberg  <schonberg@adacore.com>
+
 	* exp_aggr.adb (Expand_Array_Aggregate): If the component type
 	is limited, the array must be constructed in place, so set flag
 	In_Place_Assign_OK_For_Declaration accordingly. This prevents

gcc/ada/freeze.adb

@@ -3611,10 +3611,14 @@ package body Freeze is
 
                Error_Msg_Qual_Level := 1;
 
-               --  Check suspicious use of fat C pointer
+               --  Check suspicious use of fat C pointer, but do not emit
+               --  a warning on an access to subprogram when unnesting is
+               --  active.
 
                if Is_Access_Type (F_Type)
                  and then Esize (F_Type) > Ttypes.System_Address_Size
+                 and then (not Unnest_Subprogram_Mode
+                             or else not Is_Access_Subprogram_Type (F_Type))
                then
                   Error_Msg_N
                     ("?x?type of & does not correspond to C pointer!", Formal);