1 files changed, 30 insertions, 0 deletions
diff --git a/test/ggt.t b/test/ggt.t
new file mode 100644
index 0000000..2eeb07a
--- /dev/null
+++ b/test/ggt.t
@@ -0,0 +1,30 @@
+fun main[]
+	x = call ggt1[30,40]
+	print x
+	y = call ggt2[30,40]
+	print y
+	if x == y
+		@0
+	end
+	@1
+end
+
+fun ggt1[x,y]
+	while x != y
+		if x > y
+			x = x - y
+		else
+			y = y - x
+		end
+	end
+	@x
+end
+
+fun ggt2[a,b]
+	while b
+		x = a
+		a = b
+		b = x % b
+	end
+	@a
+end