1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb
index db100e438..b492a9139 100644
--- a/src/vhdl/iirs_utils.adb
+++ b/src/vhdl/iirs_utils.adb
@@ -834,6 +834,9 @@ package body Iirs_Utils is
             return Get_Named_Entity (Get_Prefix (Block_Spec));
          when Iir_Kind_Simple_Name =>
             return Get_Named_Entity (Block_Spec);
+         when Iir_Kind_Parenthesis_Name =>
+            --  An alternative label.
+            return Get_Named_Entity (Block_Spec);
          when others =>
             Error_Kind ("get_block_from_block_specification", Block_Spec);
             return Null_Iir;