aboutsummaryrefslogtreecommitdiffstats
path: root/parse.adb
diff options
context:
space:
mode:
Diffstat (limited to 'parse.adb')
-rw-r--r--parse.adb4
1 files changed, 4 insertions, 0 deletions
diff --git a/parse.adb b/parse.adb
index 2b66289e3..f6042911e 100644
--- a/parse.adb
+++ b/parse.adb
@@ -1270,6 +1270,10 @@ package body Parse is
-- scan a literal.
Scan.Scan;
+ if Current_Token = Tok_Right_Paren then
+ Error_Msg_Parse ("extra ',' ignored");
+ exit;
+ end if;
end loop;
Scan.Scan;
return Enum_Type;