mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-12 04:53:02 +02:00
21 lines
273 B
ObjectPascal
21 lines
273 B
ObjectPascal
unit dotest;
|
|
|
|
interface
|
|
{$ifdef go32v2}
|
|
uses
|
|
dpmiexcp,lineinfo;
|
|
{$endif go32v2}
|
|
|
|
procedure do_error(l : longint);
|
|
|
|
implementation
|
|
|
|
procedure do_error(l : longint);
|
|
|
|
begin
|
|
writeln('Error near: ',l);
|
|
halt(100);
|
|
end;
|
|
|
|
end.
|