procedure Test (D : Float) is
   A, B : Integer;
   --% node.p_unique_identifying_name
   --% node.p_defining_names[0].p_unique_identifying_name
   --% node.p_defining_names[1].p_unique_identifying_name
begin
   null;
end Test;
