[COMMITTED 1/2] a68: add assert after calling a68_lower_tree on a unit list

[Jose E. Marchesi]

Signed-off-by: Jose E. Marchesi <jema...@gnu.org>

gcc/algol68/ChangeLog

        * a68-low-clauses.cc (a68_lower_collateral_clause): Check that
        a68_lower_tree on the units list return NULL_TREE.
---
 gcc/algol68/a68-low-clauses.cc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gcc/algol68/a68-low-clauses.cc b/gcc/algol68/a68-low-clauses.cc
index 9fca4b872bc..fb77f964770 100644
--- a/gcc/algol68/a68-low-clauses.cc
+++ b/gcc/algol68/a68-low-clauses.cc
@@ -1072,7 +1072,12 @@ a68_lower_collateral_clause (NODE_T *p ATTRIBUTE_UNUSED,
   /* Lower the constituent units into a statements list.  */
   a68_push_stmt_list (mode);
   if (!clause_is_empty)
-    (void) a68_lower_tree (NEXT (SUB (p)), ctx);
+    {
+      if (a68_lower_tree (NEXT (SUB (p)), ctx) != NULL_TREE)
+       /* unit lists always lower to NULL_TREE and, as a side-effect,
+          append the units to the current statements list.  */
+       gcc_unreachable ();
+    }
   tree units = a68_pop_stmt_list ();
 
   /* The collateral clause lowers to different constructions depending on its
-- 
2.39.5