mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
12 lines
185 B
ObjectPascal
12 lines
185 B
ObjectPascal
{$macro on}
|
||
var
|
||
a,b,s : real;
|
||
|
||
begin
|
||
a:=1;
|
||
b:=2;
|
||
{$define sum:=a+b }
|
||
{$define b:=sum} { DON’T do this !!!}
|
||
s:=sum; { Will be infinitely recursively expanded... }
|
||
end.
|