mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 01:08:07 +02:00
13 lines
195 B
ObjectPascal
13 lines
195 B
ObjectPascal
{ Old file: tbs0255.pp }
|
|
{ internal error 10 with in and function calls OK 0.99.12 (FK) }
|
|
|
|
|
|
function a: char;
|
|
begin
|
|
a:='c';
|
|
end;
|
|
|
|
begin
|
|
if #12 in [a, a, a, a, a] then ; { <--- }
|
|
end.
|