[COMMITTED] algol68: new test compile/recursive-modes-2.a68

[Jose E. Marchesi]

---
 gcc/testsuite/algol68/compile/recursive-modes-2.a68 | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 gcc/testsuite/algol68/compile/recursive-modes-2.a68

diff --git a/gcc/testsuite/algol68/compile/recursive-modes-2.a68 b/gcc/testsuite/algol68/compile/recursive-modes-2.a68
new file mode 100644
index 00000000000..f79b214d075
--- /dev/null
+++ b/gcc/testsuite/algol68/compile/recursive-modes-2.a68
@@ -0,0 +1,7 @@
+begin mode Word = union (int, struct (ref Word w)),
+           Value = union (void,Word),
+           Stack = struct (ref Stack prev, Value val);
+
+      struct (Word a) qs;  { type_2 has no size! }
+      skip
+end
-- 
2.30.2