1 2 3 4 5 6 7
pragma Source_Reference (1, "p2.adb"); procedure Source_Ref2 is pragma Source_Reference (2, "p2.adb"); begin null; end;