mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 22:48:00 +02:00
14 lines
150 B
ObjectPascal
14 lines
150 B
ObjectPascal
unit ub0717;
|
|
|
|
interface
|
|
|
|
var
|
|
TestOk: Boolean = False;
|
|
|
|
implementation
|
|
|
|
finalization
|
|
if not TestOk and (ExitCode = 0) then
|
|
ExitCode := 3;
|
|
end.
|