* external handling test

tests/test/tprocext.pp

@@ -0,0 +1,9 @@
+uses uprocext1;
+
+begin
+  err:=true;
+  proc1;
+  if err then
+    halt(1);
+end.
+

tests/test/uprocext1.pp

@@ -0,0 +1,9 @@
+unit uprocext1;
+interface
+var
+  err : boolean;
+procedure proc1;
+implementation
+uses uprocext2;
+procedure proc1;external name 'ExternalProc3';
+end.

tests/test/uprocext2.pp

@@ -0,0 +1,22 @@
+unit uprocext2;
+interface
+uses uprocext1;
+
+procedure proc2;
+
+implementation
+
+procedure proc3;[public,alias:'ExternalProc3'];
+begin
+  writeln('proc3');
+  err:=false;
+end;
+
+procedure proc2;
+begin
+  { call proc1 so it already needs the mangledname }
+  proc1;
+end;
+
+end.
+