mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 16:10:09 +02:00
428306051f
elements/sets after introduction of support for "longint in set" git-svn-id: trunk@6885 -
17 lines
194 B
ObjectPascal
17 lines
194 B
ObjectPascal
{ %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.
|