mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 01:08:07 +02:00
27 lines
387 B
ObjectPascal
27 lines
387 B
ObjectPascal
{ test for complex case-var with H+ dir }
|
|
|
|
{$H+}
|
|
|
|
unit tcase45;
|
|
|
|
interface
|
|
procedure test_proc(var res : integer); inline;
|
|
|
|
implementation
|
|
|
|
var
|
|
some_str: string;
|
|
|
|
procedure test_proc(var res : integer);
|
|
begin
|
|
some_str := 'b';
|
|
case some_str + 'ababaca' of
|
|
'a'..'ba' : res := 1;
|
|
'bab'..'bbb' : res := 2;
|
|
'bbc'..'bf' : res := 3;
|
|
else res := 4;
|
|
end;
|
|
end;
|
|
|
|
end.
|