This commit adds Knuth's famous man-or-boy test to the Algol 68
testsuite.
gcc/testsuite/ChangeLog
* algol68/execute/manorboy.a68: New file.
---
gcc/testsuite/algol68/execute/manorboy.a68 | 7 +++++++
1 file changed, 7 insertions(+)
create mode 100644 gcc/testsuite/algol68/execute/manorboy.a68
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
--
2.30.2
