ams-vhdl: analyze, canon and print simultaneous procedural statements.

1 files changed, 11 insertions, 0 deletions

diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb
index 95fe700d4..98d69901c 100644
--- a/src/vhdl/vhdl-canon.adb
+++ b/src/vhdl/vhdl-canon.adb
@@ -2278,6 +2278,17 @@ package body Vhdl.Canon is
                   Clause := Get_Else_Clause (Clause);
                end loop;
             end;
+         when Iir_Kind_Simultaneous_Procedural_Statement =>
+            Canon_Declarations (Top, Stmt, Null_Iir);
+            if Canon_Flag_Sequentials_Stmts then
+               declare
+                  Stmts : Iir;
+               begin
+                  Stmts := Get_Sequential_Statement_Chain (Stmt);
+                  Stmts := Canon_Sequential_Stmts (Stmts);
+                  Set_Sequential_Statement_Chain (Stmt, Stmts);
+               end;
+            end if;
 
          when others =>
             Error_Kind ("canon_concurrent_statement", Stmt);