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 e5ff0292a..e182821ae 100644 --- a/src/vhdl/vhdl-parse.adb +++ b/src/vhdl/vhdl-parse.adb @@ -7650,6 +7650,9 @@ package body Vhdl.Parse is Error_Msg_Parse ("multi-dimensional slice is forbidden"); end if; + when Tok_Range => + Actual := Parse_Subtype_Indication (Actual); + when Tok_Double_Arrow => -- Check that FORMAL is a name and not an expression. Formal := Check_Formal_Form (Actual); |