blob: e624b587756745769948ce656aa74fe72add22bf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ Source provided for Free Pascal Bug Report 2780 }
{ Submitted by "Johannes Berg" on 2003-11-10 }
{ e-mail: bugs@johannes.sipsolutions.de }
program ifdef;
const
a = 1;
begin
{$IF NOT DECLARED(a)}
writeln('a not declared');
{$ELSE}
writeln('a declared, a = ',a);
{$ENDIF}
{$IF NOT DECLARED(b)}
writeln('b not declared');
{$ELSE}
writeln('b declared, b = ',b);
{$ENDIF}
end.
|
