sem_hdl_expr: handle function call without parameters.

Fix #544

1 files changed, 3 insertions, 1 deletions

diff --git a/src/vhdl/sem_psl.adb b/src/vhdl/sem_psl.adb
index abdf53ffb..fbafed60e 100644
--- a/src/vhdl/sem_psl.adb
+++ b/src/vhdl/sem_psl.adb
@@ -197,8 +197,10 @@ package body Sem_Psl is
                   Free_Iir (Name);
                end if;
                return Res;
-            when others =>
+            when Iir_Kind_Function_Call =>
                Expr := Name;
+            when others =>
+               Expr := Name_To_Expression (Expr, Null_Iir);
          end case;
       else
          Expr := Sem_Expr.Sem_Expression (Expr, Null_Iir);