1 files changed, 3 insertions, 1 deletions
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;