qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-10 15:22:04 +00:00
Code Issues Projects Releases Packages Wiki Activity

Add my QuakePascal test program.

Browse source 
Trivial as it is...
This commit is contained in:
Bill Currie 2011-01-17 22:44:58 +09:00
parent ea3895805b
commit b76a5c5284
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
tools/qfcc/test/gcd.pas Normal file
View file

@ -0,0 +1,15 @@
program example (input, output);
var x, y: integer;
procedure printf (format:string; ...) := #0;
function gcd (a, b: integer): integer;
var c: quaternion;
begin
if b = 0 then gcd := a
else gcd := gcd (b, a mod b)
end;
begin
x := 130;
y := 120;
printf ("%d\n", gcd (x, y))
end.