1 files changed, 3 insertions, 2 deletions
diff --git a/src/vhdl/scanner.adb b/src/vhdl/scanner.adb
index c24706ec1..c8e5a9765 100644
--- a/src/vhdl/scanner.adb
+++ b/src/vhdl/scanner.adb
@@ -2277,8 +2277,9 @@ package body Scanner is
             end if;
          when '_' =>
             Error_Msg_Scan ("an identifier can't start with '_'");
-            Pos := Pos + 1;
-            goto Again;
+            Scan_Identifier (Flag_Psl);
+            --  Cannot be a reserved word.
+            return;
          when 'A' .. 'Z' | 'a' .. 'z' =>
             Scan_Identifier (Flag_Psl);
             Identifier_To_Token;