* macpas procvar

tests/test/tmacpas3.pp

@@ -0,0 +1,11 @@
+{$mode macpas}
+
+  procedure A (i: Integer; procedure W (y:Integer) );
+  begin
+    W(i);
+  end;
+
+
+begin
+end.
+