1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index fbe5a9f95..ae5cd960e 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -1075,6 +1075,9 @@ package body Parse is
          when Iir_Kind_Simple_Name
            | Iir_Kind_Selected_Name =>
             null;
+         when Iir_Kind_Attribute_Name =>
+            --  For O'Subtype.
+            null;
          when others =>
             Error_Msg_Parse (+Mark, "type mark must be a name of a type");
       end case;