--  GNATpp insert new line for function "is" when --par-threshold=0 switch

package body par_threshold_is is
   
   procedure P0 is null;
   
   procedure P1 is 
   begin
      null;
   end P1;
   
   procedure P2 (A   : Integer; B   : Integer) is
      C : Integer;
   begin
      C := A + B;
   end P2;
      
   function F0 (A   : Integer)
	       return Boolean is null;
	       
   function F1 (A   : Integer;
                B   : Integer)
	       return Boolean is (A >= 0 and B >=0 and A <=B);

   function F2 (X : Natural)
	       return Integer is (Integer (X));  
   
   function F3 (X : Natural) return String is ("(" & Trim (X'Img, Both) & " x )");
     
   function F4 (X : Natural) return Integer is 
      Res : Integer;
   begin
      Res := Integer (X);
      return Res;  
   end F4;
   
end par_threshold_is;

