mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:24:24 +02:00
23 lines
416 B
ObjectPascal
23 lines
416 B
ObjectPascal
{$macro on}
|
|
|
|
{$define aaa:=1234}
|
|
{$define bbb:=4321}
|
|
|
|
{$define ccc:=aaa} // here aaa is already defined macros
|
|
|
|
var
|
|
err : boolean;
|
|
begin
|
|
err:=true;
|
|
{$if aaa=ccc} // condition is equal
|
|
// but compiler not compiling this block, because
|
|
// don't take into account that value of macros ccc is macros also.
|
|
err:=false;
|
|
writeln('success');
|
|
{$else}
|
|
writeln('failure');
|
|
{$endif}
|
|
if err then
|
|
halt(1);
|
|
end.
|