Index: src/Parser/parser.yy
===================================================================
--- src/Parser/parser.yy	(revision d4d4ac8c7b7430722cd1def52b6646a6947d5568)
+++ src/Parser/parser.yy	(revision a73c16efe90b64d6c59b35aacd93c5f3efff2972)
@@ -10,6 +10,6 @@
 // Created On       : Sat Sep  1 20:22:55 2001
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Fri Oct  8 06:57:16 2021
-// Update Count     : 5086
+// Last Modified On : Mon Oct 11 16:14:04 2021
+// Update Count     : 5131
 //
 
@@ -346,5 +346,5 @@
 %type<en> case_value
 %type<sn> case_clause					case_value_list				case_label					case_label_list
-%type<sn> iteration_statement			jump_statement
+%type<sn> iteration_statement			loop_default_opt			jump_statement
 %type<sn> expression_statement			asm_statement
 %type<sn> with_statement
@@ -1192,16 +1192,24 @@
 
 iteration_statement:
-	WHILE '(' push if_control_expression ')' statement pop
-		{ $$ = new StatementNode( build_while( $4, maybe_build_compound( $6 ) ) ); }
+	WHILE '(' push if_control_expression ')' loop_default_opt statement pop
+		{ $$ = new StatementNode( build_while( $4, maybe_build_compound( $7 ) ) ); }
 	| WHILE '(' ')' statement							// CFA => while ( 1 )
 		{ $$ = new StatementNode( build_while( new IfCtrl( nullptr, new ExpressionNode( build_constantInteger( *new string( "1" ) ) ) ), maybe_build_compound( $4 ) ) ); }
-	| DO statement WHILE '(' comma_expression ')' ';'
+	| DO statement WHILE '(' comma_expression ')' loop_default_opt ';'
 		{ $$ = new StatementNode( build_do_while( $5, maybe_build_compound( $2 ) ) ); }
 	| DO statement WHILE '(' ')' ';'					// CFA => do while( 1 )
 		{ $$ = new StatementNode( build_do_while( new ExpressionNode( build_constantInteger( *new string( "1" ) ) ), maybe_build_compound( $2 ) ) ); }
-	| FOR '(' push for_control_expression_list ')' statement pop
-		{ $$ = new StatementNode( build_for( $4, maybe_build_compound( $6 ) ) ); }
+	| FOR '(' push for_control_expression_list ')' loop_default_opt statement pop
+	  	{ $$ = new StatementNode( build_for( $4, maybe_build_compound( $7 ) ) ); }
 	| FOR '(' ')' statement								// CFA => for ( ;; )
 		{ $$ = new StatementNode( build_for( new ForCtrl( (ExpressionNode * )nullptr, (ExpressionNode * )nullptr, (ExpressionNode * )nullptr ), maybe_build_compound( $4 ) ) ); }
+	;
+
+loop_default_opt:
+	// empty
+		{ $$ = nullptr; }
+	| DEFAULT statement ELSE
+		{ SemanticError( yylloc, "Loop default block is currently unimplemented." ); $$ = nullptr; }
+		// { $$ = $2; }
 	;