[Ada] Make No_Inline pragma effective for protected subprograms

2019-07-01  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

	* exp_ch9.adb (Check_Inlining): Deal with Has_Pragma_No_Inline.

From-SVN: r272871

gcc/ada/ChangeLog

+2019-07-01  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* exp_ch9.adb (Check_Inlining): Deal with Has_Pragma_No_Inline.
+
 2019-07-01  Ed Schonberg  <schonberg@adacore.com>
 
 	* exp_unst.adb (Visit_Node, Check_Static_Type): Improve the

gcc/ada/exp_ch9.adb

@@ -8950,6 +8950,9 @@ package body Exp_Ch9 is
             Set_Is_Inlined (Protected_Body_Subprogram (Subp));
             Set_Is_Inlined (Subp, False);
          end if;
+         if Has_Pragma_No_Inline (Subp) then
+            Set_Has_Pragma_No_Inline (Protected_Body_Subprogram (Subp));
+         end if;
       end Check_Inlining;
 
       ---------------------------