mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-18 09:31:30 +02:00
24 lines
302 B
ObjectPascal
24 lines
302 B
ObjectPascal
{ %norun }
|
|
{ %needlibrary }
|
|
{ %target=win32,win64,wince,darwin,linux,freebsd,solaris,beos,aix }
|
|
|
|
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.
|