[gcc r16-6048] a68: new test algol68/execute/manorboy.a68

[Jose E. Marchesi]

https://gcc.gnu.org/g:cfe7c14a683159818defc42ede2430729669e3f7

commit r16-6048-gcfe7c14a683159818defc42ede2430729669e3f7
Author: Jose E. Marchesi <jose.marchesi@oracle.com>
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