1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/sem_psl.adb b/src/vhdl/sem_psl.adb
index cc2512e60..61cbe4d3a 100644
--- a/src/vhdl/sem_psl.adb
+++ b/src/vhdl/sem_psl.adb
@@ -197,7 +197,8 @@ package body Sem_Psl is
                   Free_Iir (Name);
                end if;
                return Res;
-            when Iir_Kind_Function_Call =>
+            when Iir_Kind_Function_Call
+              | Iir_Kind_Selected_Element =>
                Expr := Name;
             when others =>
                Expr := Name_To_Expression (Expr, Null_Iir);