gcc/testsuite/gnat.dg/source_ref2.adb

pragma Source_Reference (1, "p2.adb");

procedure Source_Ref2 is
pragma Source_Reference (2, "p2.adb");
begin
   null;
end;