mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
13 lines
170 B
ObjectPascal
13 lines
170 B
ObjectPascal
program ErrorSample;
|
|
{$mode objfpc}{$H+}
|
|
uses
|
|
{$IFDEF UNIX}
|
|
cThreads,
|
|
{$ENDIF}
|
|
Classes,
|
|
uw24801;
|
|
begin
|
|
if f<>'asdfasdf' then
|
|
halt(1);
|
|
end.
|