From 22bc0c766413107d826c675e726a32735f8601cc Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 16 Oct 2022 06:22:04 +0200
Subject: vhdl-sem_expr.adb(is_string_type): check character type.

Fix #2217
---
 src/vhdl/vhdl-sem_expr.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index e1938b1a4..b4218d076 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -268,7 +268,9 @@ package body Vhdl.Sem_Expr is
       if Get_Kind (El_Bt) /= Iir_Kind_Enumeration_Type_Definition then
          return False;
       end if;
-      --  FIXME: character type
+      if not Get_Is_Character_Type (El_Bt) then
+         return False;
+      end if;
       return True;
    end Is_String_Type;
 
-- 
cgit v1.2.3