fpcsrc/tests/tbs/tb0286.pp


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

{ Old file: tbs0338.pp }
{  }

{$mode delphi}

{$define skip}

begin
 writeln('Hello world!');
{$ifndef skip}
 write('}');
{$endif skip}
end.