blob: a86293fdea3a7be753d83e02886e4f8279a7af5e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ test for range with one-symbol string as right bound, which is smaller than left. Fail }
{%FAIL}
{$H+}
var
my_str: string;
i: integer;
begin
my_str := 'cab';
i := -1;
case my_str of
'cab'..'a': i := 1;
else i := 0;
end;
if (i <> 1) then begin
writeln('Error');
Halt(1);
end;
end.
|