fpcsrc/tests/webtbs/tw2289.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ Source provided for Free Pascal Bug Report 2289 }
{ Submitted by "Mattias Gaertner" on  2002-12-27 }
{ e-mail: nc-gaertnma@netcologne.de }
program TestSkip;

{$IFDEF NotDefined}

//
{$IFDEF Bogus}
{$ENDIF}

{$ENDIF}

begin

end.