parser: improve error message and recovery on = for default expression.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index fef7347..1eb513f 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -2951,6 +2951,13 @@ package body Parse is
          Scan;
 
          Default_Value := Parse_Expression;
+      elsif Current_Token = Tok_Equal then
+         Error_Msg_Parse ("= should be := for initial value");
+
+         --  Skip '='
+         Scan;
+
+         Default_Value := Parse_Expression;
       else
          Default_Value := Null_Iir;
       end if;