diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/vhdl/vhdl-sem_types.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_types.adb b/src/vhdl/vhdl-sem_types.adb index 8cde6ea00..bb43d1d40 100644 --- a/src/vhdl/vhdl-sem_types.adb +++ b/src/vhdl/vhdl-sem_types.adb @@ -627,7 +627,9 @@ package body Vhdl.Sem_Types is -- return type of the function must not be of an access type -- or file type; moreover, it must not have a subelement -- that is an access type of a file type. - if Get_Kind (El) = Iir_Kind_Function_Declaration then + if Vhdl_Std < Vhdl_19 + and then Get_Kind (El) = Iir_Kind_Function_Declaration + then Inter_Type := Get_Return_Type (El); if Inter_Type /= Null_Iir and then Get_Signal_Type_Flag (Inter_Type) = False |