From 80b8086852fae98de9c976dd82747d61b28f074b Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 20 Mar 2023 07:46:28 +0100
Subject: vhdl-scanner.adb: avoid a possible crash

---
 src/vhdl/vhdl-scanner.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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;
-- 
cgit v1.2.3