paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 13:38:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added 2 basic tests for pure functions

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2023-12-16 03:22:33 +00:00 committed by J. Gareth "Kit" Moreton
parent 9c215fba02
commit 57f8450f94
2 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tests/test/tpure1a.pp Normal file
View File

@ -0,0 +1,25 @@
{ %OPT=-O2 -Sew }
program tpure1a;
{$MODE OBJFPC}
{$COPERATORS ON}
function Factorial(N: Cardinal): Cardinal; pure;
var
X: Integer;
begin
Result := 1;
for X := N downto 2 do
Result *= X;
end;
var
Output: Cardinal;
begin
Output := Factorial(5);
WriteLn('5! = ', Output);
if Output <> 120 then
Halt(1);
WriteLn('ok');
end.

23
tests/test/tpure1b.pp Normal file
View File

@ -0,0 +1,23 @@
{ %OPT=-O2 -Sew }
program pure1b;
{$MODE OBJFPC}
function Factorial(N: Cardinal): Cardinal; pure;
begin
if N < 2 then
Result := 1
else
Result := N * Factorial(N - 1);
end;
var
Output: Cardinal;
begin
Output := Factorial(5);
WriteLn('5! = ', Output);
if Output <> 120 then
Halt(1);
WriteLn('ok');
end.