Ada Programming/Delimiters/=>

Contexts[edit | edit source]

Ada.Float_Text_IO.Put (Speed, Fore => 3, Aft => 1);  -- see RM A.10.9(22,32)

Ada.Numerics.Elementary_Functions.Arctan (X => 0.0, Y => -1.0)  -- see RM A.5.1(6, 9/1)

procedure Exchange is new Swap (Element_T => Character);

Point'(X => 10.0, Y => -1.0)  -- see RM 3.9(32)

begin
  ...
exception
  when Constraint_Error => ...
end;

case Valid is
  when False => ...
  when True  => ...
end case;