diff options
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index b480d797f..9716b2018 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -2154,7 +2154,13 @@ package body Vhdl.Parse is Ret := Create_Iir (Iir_Kind_Subtype_Declaration); Location_Copy (Ret, Tm); Set_Identifier (Ret, Get_Identifier (Tm)); - Set_Return_Identifier (Subprg, Ret); + if Get_Kind (Subprg) = Iir_Kind_Interface_Function_Declaration + then + Error_Msg_Parse + ("return identifier not allowed in interface function"); + else + Set_Return_Identifier (Subprg, Ret); + end if; Free_Iir (Tm); -- Skip 'of' |