procedure Test is
   V : Integer := 42;
   X : String := V'Image;
   --% node.f_default_expr.p_called_subp_spec.parent
   --% node.f_default_expr.p_called_subp_spec.parent.parent
begin
   null;
end Test;


