mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-06 05:12:39 +02:00
13 lines
202 B
Plaintext
13 lines
202 B
Plaintext
{
|
|
This file is part of a DEFINE / INCLUDE test. Use
|
|
testdefine.rops file to execute this file.
|
|
}
|
|
|
|
procedure TestProc;
|
|
begin
|
|
Writeln('Test Proc Called');
|
|
{$IFDEF ERROR}
|
|
Error!
|
|
{$ENDIF}
|
|
end;
|