From: Jose E. Marchesi <jose.marchesi@oracle.com>
Date: Fri, 12 Dec 2025 01:55:48 +0000 (+0100)
Subject: a68: new test algol68/execute/manorboy.a68
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cfe7c14a683159818defc42ede2430729669e3f7;p=thirdparty%2Fgcc.git

a68: new test algol68/execute/manorboy.a68

This commit adds Knuth's famous man-or-boy test to the Algol 68
testsuite.

gcc/testsuite/ChangeLog

	* algol68/execute/manorboy.a68: New file.
---

diff --git a/gcc/testsuite/algol68/execute/manorboy.a68 b/gcc/testsuite/algol68/execute/manorboy.a68
new file mode 100644
index 00000000000..e48df5b7696
--- /dev/null
+++ b/gcc/testsuite/algol68/execute/manorboy.a68
@@ -0,0 +1,7 @@
+begin proc a = (int in_k, proc int x1, x2, x3, x4, x5) int:
+         (int k := in_k;
+          proc b = int: a (k -:= 1, b, x1, x2, x3, x4);
+          (k <= 0 | x4 + x5 | b));
+
+      assert (a (10, int:1, int:-1, int:-1, int:1, int:0) = -67)
+end