tests/webtbf/tw31936.pp


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

{ %fail }
{ %opt=-Sew }
var
  I : longint;
  Somestring : string;

begin
  Somestring:='asdf';
  I := 1;
  While Not (Somestring[I] in ['#'..#0]) Do Inc(I);
end.