1 files changed, 8 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb
index 74faad959..3f4800a85 100644
--- a/src/vhdl/vhdl-sem_assocs.adb
+++ b/src/vhdl/vhdl-sem_assocs.adb
@@ -1339,6 +1339,14 @@ package body Vhdl.Sem_Assocs is
                Error_Msg_Sem
                  (+Loc, "interface of function must be a constant interface");
             end if;
+            if Get_Chain (Inter) /= Null_Iir then
+               --  LRM08 6.5.7 Association lists
+               --  In this case, the function name shall denote a function
+               --  whose single parameter is of the type of the formal
+               --  and [...]
+               Error_Msg_Sem
+                 (+Loc, "conversion function must have only one parameter");
+            end if;
          end;
       end if;