https://gcc.gnu.org/g:cfe7c14a683159818defc42ede2430729669e3f7
commit r16-6048-gcfe7c14a683159818defc42ede2430729669e3f7 Author: Jose E. Marchesi <[email protected]> Date: Fri Dec 12 02:55:48 2025 +0100 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: --- gcc/testsuite/algol68/execute/manorboy.a68 | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/gcc/testsuite/algol68/execute/manorboy.a68 b/gcc/testsuite/algol68/execute/manorboy.a68 new file mode 100644 index 000000000000..e48df5b7696a --- /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
