separate (a.b.c)
procedure q is begin
   null;
end q;
--% node.parent.f_name.p_referenced_decl()
--% node.parent.f_name.f_prefix.p_referenced_decl()
--% node.parent.f_name.f_prefix.f_prefix.p_referenced_decl()
