with Ada.Text_IO; use Ada.Text_IO;

procedure Test is
   A : Integer := - 1 - 2;
begin
   Put_Line(A);
end Test;