1 files changed, 6 insertions, 0 deletions
diff --git a/src/vhdl/sem_specs.adb b/src/vhdl/sem_specs.adb
index 8c22e9cc7..911b778cf 100644
--- a/src/vhdl/sem_specs.adb
+++ b/src/vhdl/sem_specs.adb
@@ -363,6 +363,12 @@ package body Sem_Specs is
 
          Set_Foreign_Flag (Decl, True);
 
+         --  Use 'standard' convention call for foreign procedures, so as a
+         --  consequence they cannot be suspended.
+         if Get_Kind (Decl) = Iir_Kind_Procedure_Declaration then
+            Set_Suspend_Flag (Decl, False);
+         end if;
+
          declare
             use Back_End;
          begin