Index: src/Parser/parser.yy
===================================================================
--- src/Parser/parser.yy	(revision 4744074cedf4399dd21f7ed0921b4f07f5f7064d)
+++ src/Parser/parser.yy	(revision ef3ac4640bb5bfd60cd87c0a0e50251de36432af)
@@ -10,6 +10,6 @@
 // Created On       : Sat Sep  1 20:22:55 2001
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Wed Apr 14 18:13:44 2021
-// Update Count     : 4983
+// Last Modified On : Mon Apr 26 18:41:54 2021
+// Update Count     : 4990
 //
 
@@ -211,5 +211,5 @@
 } // forCtrl
 
-bool forall = false, yyy = false;						// aggregate have one or more forall qualifiers ?
+bool forall = false;									// aggregate have one or more forall qualifiers ?
 
 // https://www.gnu.org/software/bison/manual/bison.html#Location-Type
@@ -812,4 +812,6 @@
 		{ $$ = new ExpressionNode( build_cast( $2, $4 ) ); }
 	| '(' aggregate_control '&' ')' cast_expression		// CFA
+		{ $$ = new ExpressionNode( build_keyword_cast( $2, $5 ) ); }
+	| '(' aggregate_control '*' ')' cast_expression		// CFA
 		{ $$ = new ExpressionNode( build_keyword_cast( $2, $5 ) ); }
 	| '(' VIRTUAL ')' cast_expression					// CFA
@@ -2128,9 +2130,9 @@
 aggregate_data:
 	STRUCT vtable_opt
-		{ yyy = true; $$ = AggregateDecl::Struct; }
+		{ $$ = AggregateDecl::Struct; }
 	| UNION
-		{ yyy = true; $$ = AggregateDecl::Union; }
+		{ $$ = AggregateDecl::Union; }
 	| EXCEPTION											// CFA
-		{ yyy = true; $$ = AggregateDecl::Exception; }
+		{ $$ = AggregateDecl::Exception; }
 	  //		{ SemanticError( yylloc, "exception aggregate is currently unimplemented." ); $$ = AggregateDecl::NoAggregate; }
 	;
@@ -2138,17 +2140,17 @@
 aggregate_control:										// CFA
 	MONITOR
-		{ yyy = true; $$ = AggregateDecl::Monitor; }
+		{ $$ = AggregateDecl::Monitor; }
 	| MUTEX STRUCT
-		{ yyy = true; $$ = AggregateDecl::Monitor; }
+		{ $$ = AggregateDecl::Monitor; }
 	| GENERATOR
-		{ yyy = true; $$ = AggregateDecl::Generator; }
+		{ $$ = AggregateDecl::Generator; }
 	| MUTEX GENERATOR
 		{ SemanticError( yylloc, "monitor generator is currently unimplemented." ); $$ = AggregateDecl::NoAggregate; }
 	| COROUTINE
-		{ yyy = true; $$ = AggregateDecl::Coroutine; }
+		{ $$ = AggregateDecl::Coroutine; }
 	| MUTEX COROUTINE
 		{ SemanticError( yylloc, "monitor coroutine is currently unimplemented." ); $$ = AggregateDecl::NoAggregate; }
 	| THREAD
-		{ yyy = true; $$ = AggregateDecl::Thread; }
+		{ $$ = AggregateDecl::Thread; }
 	| MUTEX THREAD
 		{ SemanticError( yylloc, "monitor thread is currently unimplemented." ); $$ = AggregateDecl::NoAggregate; }