13 lines
214 B
Plaintext
13 lines
214 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;
|