1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb
index ad6207658..5583ee7b9 100644
--- a/src/vhdl/translate/trans-chap3.adb
+++ b/src/vhdl/translate/trans-chap3.adb
@@ -1749,8 +1749,10 @@ package body Trans.Chap3 is
                if Get_Info (El) /= null then
                   Chap2.Translate_Subprogram_Declaration (El);
                end if;
+            when Iir_Kind_Attribute_Specification =>
+               null;
             when others =>
-               Error_Kind ("translate_protected_type_subprograms", El);
+               Error_Kind ("translate_protected_type_subprograms_spec", El);
          end case;
          El := Get_Chain (El);
       end loop;