vhdl-scanner.adb: avoid a possible crash

1 files changed, 1 insertions, 1 deletions

diff --git a/src/vhdl/vhdl-scanner.adb b/src/vhdl/vhdl-scanner.adb
index 5f7b735f2..791138164 100644
--- a/src/vhdl/vhdl-scanner.adb
+++ b/src/vhdl/vhdl-scanner.adb
@@ -1647,7 +1647,7 @@ package body Vhdl.Scanner is
                when Special_Character =>
                   -- The current character is legal in an identifier.
                   if C = '_' then
-                     if I = 1 then
+                     if I = F then
                         Error_Msg_Option
                           ("an identifier cannot start with an underscore");
                         return;