tests/test/uunit1.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

unit uunit1;

  interface

    var
       testvar : longint;

  implementation

    uses
       erroru;

initialization
  testvar:=1234567;
finalization
  if testvar<>1234567 then
    do_error(1001)
  else
    halt(0);
end.