procedure Test is
begin
   null;
end Test;

pragma Find_All_References (Any);
