a68: fix error handling in top-down parser

Signed-off-by: Jose E. Marchesi <[email protected]>

gcc/algol68/ChangeLog

	* a68-parser-top-down.cc (a68_top_down_parser): Stop parsing after
	longjump.

gcc/testsuite/ChangeLog

	* algol68/compile/error-loop-1.a68: New test.

Author: jemarch

gcc/algol68/a68-parser-top-down.cc

@@ -891,9 +891,9 @@ a68_top_down_parser (NODE_T *p)
 	(void) top_down_prelude_packet (p);
       else
 	(void) top_down_particular_program (p);
-    }
 
-  top_down_loops (p);
-  top_down_formats (p);
-  top_down_access (p);
+      top_down_loops (p);
+      top_down_formats (p);
+      top_down_access (p);
+    }
 }

gcc/testsuite/algol68/compile/error-loop-1.a68

@@ -0,0 +1 @@
+from i from 1 to 10 do skip od { dg-error "" }