blob: 8dbb1563e1282f953fdfb7bf7a2ccac7d3f51dfa (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %norun }
{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos}
library tw9089a;
{$mode objfpc}{$H+}
var
myvar: longint; cvar;
exports
myvar;
initialization
Writeln('INIT');
myvar:=-1;
finalization
Writeln('FINI');
if (myvar<>1) then
halt(1);
end.
|
