tests/webtbf/tw8528.pp


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

{ %fail }

program test;

{$mode objfpc}{$H+}

const
  AllowedCharSet: set of Byte = [48..60];

var
  s: string;
begin
  s := 'test0';
  if s[5] in AllowedCharSet then
    Writeln('huh?');
end.