fix: freeze in parsing complex conjugate operator (form-dev#499)

Author: tueda

check/fixes.frm

@@ -2655,3 +2655,16 @@ assert stdout =~ exact_pattern(<<'EOF')
    nonempty(14): x y
 EOF
 *--#] Issue486 :
+*--#[ Issue499_1 :
+* Freeze in parsing complex conjugate
+S x#c;
+L F = x#;
+.end
+assert compile_error?("Complex conjugate operator (#) is not implemented")
+*--#] Issue499_1 :
+*--#[ Issue499_2 :
+S x#c;
+L F = #x;
+.end
+assert compile_error?("Illegal position for #")
+*--#] Issue499_2 :

sources/compiler.c

@@ -1857,6 +1857,11 @@ Power?
 				funflag = 0;
 				deno = 1;
 				break;
+			case TCONJUGATE:
+				MesPrint("&Complex conjugate operator (%#) is not implemented");
+				error = -1;
+				deno = 1;
+				break;
 			default:
 				MesPrint("&Internal error in code generator. Unknown object: %d",c);
 				error = -1;

sources/token.c

@@ -366,9 +366,14 @@ donumber:		i = 0;
 					}
 				}
 				else if ( *in == '#' ) {
+					in++;
 					if ( object == 1 ) {	/* follows a name */
 						*out++ = TCONJUGATE;
 					}
+					else {
+						MesPrint("&Illegal position for %#");
+						error = 1;
+					}
 				}
 				else goto IllPos;
 				break;