pascalabcnet/TestSuite/errors/err0423.pas
2021-08-10 21:23:15 +02:00

10 lines
99 B
ObjectPascal

function f(i: integer): integer;
begin
end;
begin
case f of
1: writeln(2);
end;
end.