tprocext.pp « test « tests « fpcsrc - fpc - [no description]

summary refs log tree commit diff

path: root/fpcsrc/tests/test/tprocext.pp

blob: c87c9b7d1ab2bcc4929021a4155c490e7c8b8b45 (plain)

uses uprocext1;

begin
  err:=true;
  proc1;
  if err then
    halt(1);
end.