procedure Defining is
   A : constant := 1;
   --% node.p_defining_names[0].f_name.p_is_constant
   B : Character := '1';
   --% node.p_defining_names[0].f_name.p_is_constant
begin
   null;
end Defining;
