mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
14 lines
159 B
ObjectPascal
14 lines
159 B
ObjectPascal
{ %opt=-vw -Sew -Oodfa }
|
|
{ %fail }
|
|
program test;
|
|
|
|
function foo(x: integer): integer;
|
|
begin
|
|
if x > 10 then
|
|
exit(10);
|
|
end;
|
|
|
|
begin
|
|
foo(4);
|
|
foo(12);
|
|
end. |