with R1; use R1;

package body Q1 is

  type Arr is array (1..4) of Long_Long_Integer;
  for Arr'alignment use 16;

  function Func (A : Integer; B : Integer) return Integer is
    C : Integer;
    My_Arr : Arr;
  begin
    My_Arr (1) := Dummy;
    C := Diff (A/2, B/2);
    return A + B + C;
  end;

end Q1;