freepascal.compiler/tests/test/uprocext1.pp

unit uprocext1;
interface
var
  err : boolean;
procedure proc1;
implementation
uses uprocext2;
procedure proc1;external name 'ExternalProc3';
end.