[COMMITTED] a68: top_down_access: recover from error rather than ICEing

[Jose E. Marchesi]

---
 gcc/algol68/a68-parser-top-down.cc | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gcc/algol68/a68-parser-top-down.cc b/gcc/algol68/a68-parser-top-down.cc
index 6fc3cb038b0..3aec9192058 100644
--- a/gcc/algol68/a68-parser-top-down.cc
+++ b/gcc/algol68/a68-parser-top-down.cc
@@ -527,9 +527,11 @@ top_down_access (NODE_T *p)
 	      FORWARD (end_p);
 	      if (IS (end_p, POSTLUDE_SYMBOL))
 		FORWARD (end_p);
-	      gcc_assert (IS (end_p, FED_SYMBOL)); /* as per top_down_fed */
-	      ATTRIBUTE (q) = ALT_ACCESS_SYMBOL;
-	      a68_make_sub (q, end_p, ALT_ACCESS_SYMBOL);
+	      if (IS (end_p, FED_SYMBOL))
+		{
+		  ATTRIBUTE (q) = ALT_ACCESS_SYMBOL;
+		  a68_make_sub (q, end_p, ALT_ACCESS_SYMBOL);
+		}
 	    }
 	  else
 	    a68_make_sub (q, end_p, ACCESS_SYMBOL);
-- 
2.30.2