Attention des changements sont bientôt à prévoir sur l'instance gitea d'Aurore :
pragma Source_Reference (1, "p2.adb");
procedure Source_Ref2 is
pragma Source_Reference (2, "p2.adb");
begin
null;
end;