fpcsrc/tests/webtbf/tw7070.pp


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

{ %fail }

program varistr;

{$ifdef fpc}
{$mode delphi}
{$h+}
{$endif}

var
  str: string;
begin
  str := 'something';

  if not str = 'hello' then
    writeln('test')
end.