afe3fdfd77
git-svn-id: http://code.remobjects.com/svn/pascalscript@1 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
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;
|