diff options
Diffstat (limited to 'src/vhdl/vhdl-parse.adb')
| -rw-r--r-- | src/vhdl/vhdl-parse.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb index e17846618..3ec1777a2 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -3583,6 +3583,9 @@ package body Vhdl.Parse is when Tok_Record => Def := Parse_Record_Nature_Definition; Set_Location (Def, Loc); + if Current_Token = Tok_Identifier then + Check_End_Name (Ident, Def); + end if; when Tok_Identifier => Def := Parse_Scalar_Nature_Definition; Set_Location (Def, Loc); |