]> code.delx.au - gnu-emacs-elpa/blobdiff - packages/ada-mode/ada-grammar-wy.el
* packages/ada-mode/* : version 5.1.5
[gnu-emacs-elpa] / packages / ada-mode / ada-grammar-wy.el
index 8a60f1191bccd50dfb0028f5ca0c6bf84c9e4488..ef0ece1e297ae0cef7f7ccb50a5837896965dd11 100755 (executable)
       (direct_name
        ((IDENTIFIER ))
        ((STRING_LITERAL )))
+      (direct_name_opt
+       (())
+       ((direct_name )))
       (discrete_choice
        ((choice_expression ))
        ((NOT NULL name ))
         (wisi-containing-action 1 3)
         (wisi-containing-action 3 4)
         (wisi-containing-action 5 6)
-        (wisi-containing-action 7 8)))
+        (wisi-containing-action 7 8)
+        (wisi-motion-action 1 5 7 '(8 EXCEPTION) 9)))
        ((PACKAGE BODY name aspect_specification_opt IS declarative_part_opt END name_opt SEMICOLON )
         (progn
         (wisi-statement-action 1 'block-start 3 'name 5 'block-middle 7 'block-end 9 'statement-end)
         (wisi-containing-action 1 3)
         (wisi-containing-action 3 4)
-        (wisi-containing-action 5 6))))
+        (wisi-containing-action 5 6)
+        (wisi-motion-action 1 5 7))))
       (package_body_stub
        ((PACKAGE BODY name IS SEPARATE aspect_specification_opt SEMICOLON )
         (progn
         (wisi-statement-action 1 'statement-start 2 'statement-end))
        ((RAISE name WITH expression SEMICOLON )
         (progn
-        (wisi-statement-action 1 'statement-start 3 'statement-other 5 'statement-end)
-        (wisi-containing-action 3 4)))
+        (wisi-statement-action 1 'statement-start 5 'statement-end)
+        (wisi-containing-action 1 4)))
        ((RAISE name SEMICOLON )
         (wisi-statement-action 1 'statement-start 3 'statement-end)))
       (range
        ((derived_type_definition ))
        ((interface_type_definition )))
       (variant_part
-       ((CASE direct_name IS variant_list END CASE SEMICOLON )
+       ((CASE direct_name_opt IS variant_list END CASE SEMICOLON )
         (progn
         (wisi-statement-action 1 'statement-start 3 'block-start 5 'block-end 7 'statement-end)
         (wisi-containing-action 3 4))))
        ((variant ))
        ((variant_list variant )))
       (variant
-       ((WHEN discrete_choice_list EQUAL_GREATER component_list )
+       ((WHEN discrete_choice_list EQUAL_GREATER component_list_opt )
         (progn
         (wisi-statement-action 1 'block-middle 3 'statement-other)
         (wisi-containing-action 1 2)
       ((default . error) (END . (exception_handler_list_opt . 1)) (WHEN .  930))
       ((default . error) (END . (handled_sequence_of_statements . 0)))
       ((default . error) (WHEN . (exception_handler_list . 1)) (END . (exception_handler_list . 1)))
-      ((default . error) (COLON .  1167) (EQUAL_GREATER . (name . 0)) (BAR . (name . 0)) (LEFT_PAREN . (name . 0)) (DOT . (name . 0)) (TICK . (name . 0)))
+      ((default . error) (COLON .  1168) (EQUAL_GREATER . (name . 0)) (BAR . (name . 0)) (LEFT_PAREN . (name . 0)) (DOT . (name . 0)) (TICK . (name . 0)))
       ((default . error) (BAR . (exception_choice . 1)) (EQUAL_GREATER . (exception_choice . 1)))
       ((default . error) (EQUAL_GREATER . (exception_choice_list . 0)) (BAR . (exception_choice_list . 0)))
-      ((default . error) (BAR .  1165) (EQUAL_GREATER .  1166))
+      ((default . error) (BAR .  1166) (EQUAL_GREATER .  1167))
       ((default . error) (DOT .  87) (BAR . (exception_choice . 0)) (EQUAL_GREATER . (exception_choice . 0)) (TICK .  88) (LEFT_PAREN .  106))
       ((default . error) (WHEN . (assignment_statement . 0)) (THEN . (assignment_statement . 0)) (OR . (assignment_statement . 0)) (ELSIF . (assignment_statement . 0)) (ELSE . (assignment_statement . 0)) (WHILE . (assignment_statement . 0)) (SELECT . (assignment_statement . 0)) (RETURN . (assignment_statement . 0)) (REQUEUE . (assignment_statement . 0)) (RAISE . (assignment_statement . 0)) (PRAGMA . (assignment_statement . 0)) (NULL . (assignment_statement . 0)) (LOOP . (assignment_statement . 0)) (IF . (assignment_statement . 0)) (GOTO . (assignment_statement . 0)) (FOR . (assignment_statement . 0)) (EXIT . (assignment_statement . 0)) (DELAY . (assignment_statement . 0)) (DECLARE . (assignment_statement . 0)) (CASE . (assignment_statement . 0)) (BEGIN . (assignment_statement . 0)) (ABORT . (assignment_statement . 0)) (ACCEPT . (assignment_statement . 0)) (CHARACTER_LITERAL . (assignment_statement . 0)) (STRING_LITERAL . (assignment_statement . 0)) (IDENTIFIER . (assignment_statement . 0)) (LESS_LESS . (assignment_statement . 0)) (END . (assignment_statement . 0)) (EXCEPTION . (assignment_statement . 0)))
-      ((default . error) (LOOP .  1164))
+      ((default . error) (LOOP .  1165))
       ((default . error) (TYPE . (subprogram_body . 0)) (TASK . (subprogram_body . 0)) (SUBTYPE . (subprogram_body . 0)) (PROTECTED . (subprogram_body . 0)) (FOR . (subprogram_body . 0)) (ENTRY . (subprogram_body . 0)) (IDENTIFIER . (subprogram_body . 0)) (BEGIN . (subprogram_body . 0)) (END . (subprogram_body . 0)) ($EOI . (subprogram_body . 0)) (FUNCTION . (subprogram_body . 0)) (GENERIC . (subprogram_body . 0)) (LIMITED . (subprogram_body . 0)) (NOT . (subprogram_body . 0)) (OVERRIDING . (subprogram_body . 0)) (PACKAGE . (subprogram_body . 0)) (PRAGMA . (subprogram_body . 0)) (PRIVATE . (subprogram_body . 0)) (PROCEDURE . (subprogram_body . 0)) (SEPARATE . (subprogram_body . 0)) (USE . (subprogram_body . 0)) (WITH . (subprogram_body . 0)))
-      ((default . error) (TERMINATE .  1161) (ACCEPT .  613) (DELAY .  618))
-      ((default . error) (END .  1160))
+      ((default . error) (TERMINATE .  1162) (ACCEPT .  613) (DELAY .  618))
+      ((default . error) (END .  1161))
       ((default . error) (END . (sequence_of_statements_opt . 0)) (OR . (sequence_of_statements_opt . 0)) (ELSE . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
-      ((default . error) (END .  1158))
+      ((default . error) (END .  1159))
       ((default . error) (ELSE . (select_alternative_list . 1)) (END . (select_alternative_list . 1)) (OR . (select_alternative_list . 1)))
-      ((default . error) (SEMICOLON .  1157))
-      ((default . error) (END .  1156))
+      ((default . error) (SEMICOLON .  1158))
+      ((default . error) (END .  1157))
       ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
       ((default . error) (IDENTIFIER . (constant_opt . 0)) (STRING_LITERAL . (constant_opt . 0)) (CHARACTER_LITERAL . (constant_opt . 0)) (ACCESS . (constant_opt . 0)) (NOT . (constant_opt . 0)) (CONSTANT .  726))
-      ((default . error) (END .  1153))
+      ((default . error) (END .  1154))
+      ((default . error) (SEMICOLON .  1153))
       ((default . error) (SEMICOLON .  1152))
-      ((default . error) (SEMICOLON .  1151))
       ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .  695))
-      ((default . error) (ELSE .  1145) (END .  1147) (ELSIF .  1146))
-      ((default . error) (SEMICOLON .  1144))
+      ((default . error) (ELSE .  1146) (END .  1148) (ELSIF .  1147))
+      ((default . error) (SEMICOLON .  1145))
       ((default . error) (WHEN . (delay_statement . 0)) (ELSIF . (delay_statement . 0)) (EXCEPTION . (delay_statement . 0)) (WHILE . (delay_statement . 0)) (SELECT . (delay_statement . 0)) (RETURN . (delay_statement . 0)) (REQUEUE . (delay_statement . 0)) (RAISE . (delay_statement . 0)) (PRAGMA . (delay_statement . 0)) (NULL . (delay_statement . 0)) (LOOP . (delay_statement . 0)) (IF . (delay_statement . 0)) (GOTO . (delay_statement . 0)) (FOR . (delay_statement . 0)) (EXIT . (delay_statement . 0)) (DELAY . (delay_statement . 0)) (DECLARE . (delay_statement . 0)) (CASE . (delay_statement . 0)) (BEGIN . (delay_statement . 0)) (ABORT . (delay_statement . 0)) (ACCEPT . (delay_statement . 0)) (CHARACTER_LITERAL . (delay_statement . 0)) (STRING_LITERAL . (delay_statement . 0)) (IDENTIFIER . (delay_statement . 0)) (LESS_LESS . (delay_statement . 0)) (END . (delay_statement . 0)) (OR . (delay_statement . 0)) (ELSE . (delay_statement . 0)) (THEN . (delay_statement . 0)))
-      ((default . error) (END .  1143))
+      ((default . error) (END .  1144))
       ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS .  172) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  171) (NULL .  150) (NEW .  148) (LEFT_PAREN .  147))
       ((default . error) (END . (case_statement_alternative_list . 0)) (WHEN . (case_statement_alternative_list . 0)))
-      ((default . error) (END .  1140) (WHEN .  960))
-      ((default . error) (SEMICOLON .  1139))
-      ((default . error) (DO .  1138) (SEMICOLON .  1137))
-      ((default . error) (BEGIN .  1136))
-      ((default . error) (IDENTIFIER .  1135))
+      ((default . error) (END .  1141) (WHEN .  960))
+      ((default . error) (SEMICOLON .  1140))
+      ((default . error) (DO .  1139) (SEMICOLON .  1138))
+      ((default . error) (BEGIN .  1137))
+      ((default . error) (IDENTIFIER .  1136))
       ((default . error) (PROCEDURE . (protected_operation_item . 3)) (OVERRIDING . (protected_operation_item . 3)) (NOT . (protected_operation_item . 3)) (FUNCTION . (protected_operation_item . 3)) (FOR . (protected_operation_item . 3)) (ENTRY . (protected_operation_item . 3)) (END . (protected_operation_item . 3)))
       ((default . error) (PROCEDURE . (protected_operation_item . 2)) (OVERRIDING . (protected_operation_item . 2)) (NOT . (protected_operation_item . 2)) (FUNCTION . (protected_operation_item . 2)) (FOR . (protected_operation_item . 2)) (ENTRY . (protected_operation_item . 2)) (END . (protected_operation_item . 2)))
       ((default . error) (FUNCTION .  1) (PROCEDURE .  9))
       ((default . error) (END . (protected_operation_item_list . 0)) (ENTRY . (protected_operation_item_list . 0)) (FOR . (protected_operation_item_list . 0)) (FUNCTION . (protected_operation_item_list . 0)) (NOT . (protected_operation_item_list . 0)) (OVERRIDING . (protected_operation_item_list . 0)) (PROCEDURE . (protected_operation_item_list . 0)))
       ((default . error) (END . (protected_operation_item_list_opt . 1)) (ENTRY .  966) (NOT .  4) (OVERRIDING .  5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (FOR .  289))
-      ((default . error) (END .  1132))
+      ((default . error) (END .  1133))
       ((default . error) (PROCEDURE . (protected_operation_item . 1)) (OVERRIDING . (protected_operation_item . 1)) (NOT . (protected_operation_item . 1)) (FUNCTION . (protected_operation_item . 1)) (FOR . (protected_operation_item . 1)) (ENTRY . (protected_operation_item . 1)) (END . (protected_operation_item . 1)))
       ((default . error) (PROCEDURE . (protected_operation_item . 0)) (OVERRIDING . (protected_operation_item . 0)) (NOT . (protected_operation_item . 0)) (FUNCTION . (protected_operation_item . 0)) (FOR . (protected_operation_item . 0)) (ENTRY . (protected_operation_item . 0)) (END . (protected_operation_item . 0)))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
       ((default . error) (ELSIF . (elsif_expression_list . 1)) (ELSE . (elsif_expression_list . 1)) (RIGHT_PAREN . (elsif_expression_list . 1)))
-      ((default . error) (THEN .  1130))
+      ((default . error) (THEN .  1131))
       ((default . error) (RIGHT_PAREN . (if_expression . 2)))
-      ((default . error) (REVERSE .  1128) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
+      ((default . error) (REVERSE .  1129) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
       ((default . error) (LOOP . (iterator_specification . 0)) (EQUAL_GREATER . (iterator_specification . 0)))
       ((default . error) (DOT .  87) (TICK .  88) (LOOP . (iterator_specification . 4)) (EQUAL_GREATER . (iterator_specification . 4)) (LEFT_PAREN .  106))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
       ((default . error) (RIGHT_PAREN . (case_expression_alternative_list . 1)) (COMMA . (case_expression_alternative_list . 1)))
-      ((default . error) (SEMICOLON .  1126))
+      ((default . error) (SEMICOLON .  1127))
       ((default . error) (WITH . (parameter_profile_opt . 0)) (SEMICOLON . (parameter_profile_opt . 0)) (LEFT_PAREN .  782))
       ((default . error) (USE . (entry_declaration . 1)) (TYPE . (entry_declaration . 1)) (TASK . (entry_declaration . 1)) (SUBTYPE . (entry_declaration . 1)) (PROTECTED . (entry_declaration . 1)) (PROCEDURE . (entry_declaration . 1)) (PRAGMA . (entry_declaration . 1)) (PACKAGE . (entry_declaration . 1)) (OVERRIDING . (entry_declaration . 1)) (NOT . (entry_declaration . 1)) (GENERIC . (entry_declaration . 1)) (FUNCTION . (entry_declaration . 1)) (FOR . (entry_declaration . 1)) (ENTRY . (entry_declaration . 1)) (IDENTIFIER . (entry_declaration . 1)) (BEGIN . (entry_declaration . 1)) (END . (entry_declaration . 1)) (PRIVATE . (entry_declaration . 1)))
       ((default . error) (WITH . (paren_expression . 2)) (SEMICOLON . (paren_expression . 2)))
       ((default . error) (USE . (abstract_subprogram_declaration . 0)) (TYPE . (abstract_subprogram_declaration . 0)) (TASK . (abstract_subprogram_declaration . 0)) (SUBTYPE . (abstract_subprogram_declaration . 0)) (PROTECTED . (abstract_subprogram_declaration . 0)) (PROCEDURE . (abstract_subprogram_declaration . 0)) (PRAGMA . (abstract_subprogram_declaration . 0)) (PACKAGE . (abstract_subprogram_declaration . 0)) (OVERRIDING . (abstract_subprogram_declaration . 0)) (NOT . (abstract_subprogram_declaration . 0)) (GENERIC . (abstract_subprogram_declaration . 0)) (FUNCTION . (abstract_subprogram_declaration . 0)) (FOR . (abstract_subprogram_declaration . 0)) (ENTRY . (abstract_subprogram_declaration . 0)) (IDENTIFIER . (abstract_subprogram_declaration . 0)) (BEGIN . (abstract_subprogram_declaration . 0)) (END . (abstract_subprogram_declaration . 0)) (PRIVATE . (abstract_subprogram_declaration . 0)))
       ((default . error) (USE . (subprogram_body_stub . 0)) (TYPE . (subprogram_body_stub . 0)) (TASK . (subprogram_body_stub . 0)) (SUBTYPE . (subprogram_body_stub . 0)) (PROTECTED . (subprogram_body_stub . 0)) (PROCEDURE . (subprogram_body_stub . 0)) (PRAGMA . (subprogram_body_stub . 0)) (PACKAGE . (subprogram_body_stub . 0)) (OVERRIDING . (subprogram_body_stub . 0)) (NOT . (subprogram_body_stub . 0)) (GENERIC . (subprogram_body_stub . 0)) (FUNCTION . (subprogram_body_stub . 0)) (FOR . (subprogram_body_stub . 0)) (ENTRY . (subprogram_body_stub . 0)) (IDENTIFIER . (subprogram_body_stub . 0)) (BEGIN . (subprogram_body_stub . 0)) (END . (subprogram_body_stub . 0)) (PRIVATE . (subprogram_body_stub . 0)))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
-      ((default . error) (SEMICOLON .  1123))
+      ((default . error) (SEMICOLON .  1124))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
-      ((default . error) (SEMICOLON .  1121))
+      ((default . error) (SEMICOLON .  1122))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
-      ((default . error) (SEMICOLON .  1119))
+      ((default . error) (SEMICOLON .  1120))
       ((default . error) (ACCESS . (null_exclusion_opt . 1)) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
       ((default . error) (BEGIN . (declaration . 9)) (IDENTIFIER . (declaration . 9)) (ENTRY . (declaration . 9)) (FOR . (declaration . 9)) (FUNCTION . (declaration . 9)) (GENERIC . (declaration . 9)) (NOT . (declaration . 9)) (OVERRIDING . (declaration . 9)) (PACKAGE . (declaration . 9)) (PRAGMA . (declaration . 9)) (PROCEDURE . (declaration . 9)) (PROTECTED . (declaration . 9)) (SUBTYPE . (declaration . 9)) (TASK . (declaration . 9)) (TYPE . (declaration . 9)) (USE . (declaration . 9)) (PRIVATE . (declaration . 9)) (END . (declaration . 9)))
-      ((default . error) (SEMICOLON .  1118))
+      ((default . error) (SEMICOLON .  1119))
       ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH .  108))
       ((default . error) (WITH . (record_type_definition . 0)) (SEMICOLON . (record_type_definition . 0)))
       ((default . error) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
       ((default . error) (NOT .  736) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
       ((default . error) (BEGIN . (incomplete_type_declaration . 0)) (IDENTIFIER . (incomplete_type_declaration . 0)) (ENTRY . (incomplete_type_declaration . 0)) (FOR . (incomplete_type_declaration . 0)) (FUNCTION . (incomplete_type_declaration . 0)) (GENERIC . (incomplete_type_declaration . 0)) (NOT . (incomplete_type_declaration . 0)) (OVERRIDING . (incomplete_type_declaration . 0)) (PACKAGE . (incomplete_type_declaration . 0)) (PRAGMA . (incomplete_type_declaration . 0)) (PROCEDURE . (incomplete_type_declaration . 0)) (PROTECTED . (incomplete_type_declaration . 0)) (SUBTYPE . (incomplete_type_declaration . 0)) (TASK . (incomplete_type_declaration . 0)) (TYPE . (incomplete_type_declaration . 0)) (USE . (incomplete_type_declaration . 0)) (PRIVATE . (incomplete_type_declaration . 0)) (END . (incomplete_type_declaration . 0)))
-      ((default . error) (IDENTIFIER .  1112) (STRING_LITERAL .  1113))
+      ((default . error) (IS . (direct_name_opt . 0)) (IDENTIFIER .  1112) (STRING_LITERAL .  1113))
       ((default . error) (SEMICOLON .  1111))
       ((default . error) (WHEN . (component_item . 1)) (END . (component_item . 1)) (FOR . (component_item . 1)) (IDENTIFIER . (component_item . 1)) (CASE . (component_item . 1)))
       ((default . error) (WHEN . (component_item . 0)) (END . (component_item . 0)) (FOR . (component_item . 0)) (IDENTIFIER . (component_item . 0)) (CASE . (component_item . 0)))
       ((default . error) (WHEN . (component_list . 0)) (END . (component_list . 0)) (CASE . (component_list . 0)) (IDENTIFIER . (component_list . 0)) (FOR . (component_list . 0)))
-      ((default . error) (END . (component_list_opt . 1)) (CASE .  1008) (IDENTIFIER .  72) (FOR .  289))
+      ((default . error) (WHEN . (component_list_opt . 1)) (END . (component_list_opt . 1)) (CASE .  1008) (IDENTIFIER .  72) (FOR .  289))
       ((default . error) (END .  1108))
       ((default . error) (COMMA .  95) (COLON .  1107))
       ((default . error) (WHEN . (component_list . 3)) (END . (component_list . 3)) (CASE . (component_list . 3)) (IDENTIFIER . (component_list . 3)) (FOR . (component_list . 3)))
       ((default . error) (PACKAGE . (formal_object_declaration . 0)) (PROCEDURE . (formal_object_declaration . 0)) (FUNCTION . (formal_object_declaration . 0)) (IDENTIFIER . (formal_object_declaration . 0)) (PRAGMA . (formal_object_declaration . 0)) (TYPE . (formal_object_declaration . 0)) (WITH . (formal_object_declaration . 0)))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
       ((default . error) (RIGHT_PAREN . (parameter_specification . 0)) (SEMICOLON . (parameter_specification . 0)))
-      ((default . error) (PRIVATE .  1232))
+      ((default . error) (PRIVATE .  1233))
       ((default . error) (DOT .  87) (TICK .  88) (WITH . (interface_list . 1)) (SEMICOLON . (interface_list . 1)) (AND . (interface_list . 1)) (LEFT_PAREN .  106))
       ((default . error) (LOOP . (index_constraint . 0)) (DO . (index_constraint . 0)) (EQUAL_GREATER . (index_constraint . 0)) (COMMA . (index_constraint . 0)) (RIGHT_PAREN . (index_constraint . 0)) (COLON_EQUAL . (index_constraint . 0)) (WITH . (index_constraint . 0)) (SEMICOLON . (index_constraint . 0)) (AND . (index_constraint . 0)) (OF . (index_constraint . 0)))
       ((default . error) (PLUS . (primary . 0)) (MINUS . (primary . 0)) (AMPERSAND . (primary . 0)) (DOT_DOT . (primary . 0)) (SLASH . (primary . 0)) (STAR . (primary . 0)) (MOD . (primary . 0)) (REM . (primary . 0)) (XOR . (primary . 0)) (OR . (primary . 0)) (AND . (primary . 0)) (EQUAL_GREATER . (primary . 0)) (BAR . (primary . 0)) (IN . (primary . 0)) (NOT . (primary . 0)) (EQUAL . (primary . 0)) (GREATER . (primary . 0)) (GREATER_EQUAL . (primary . 0)) (LESS . (primary . 0)) (LESS_EQUAL . (primary . 0)) (SLASH_EQUAL . (primary . 0)) (RIGHT_PAREN . (primary . 0)) (COMMA . (primary . 0)) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
       ((default . error) (WITH . (array_type_definition . 1)) (SEMICOLON . (array_type_definition . 1)) (COLON_EQUAL . (array_type_definition . 1)))
       ((default . error) (END . (object_renaming_declaration . 2)) (PRIVATE . (object_renaming_declaration . 2)) (USE . (object_renaming_declaration . 2)) (TYPE . (object_renaming_declaration . 2)) (TASK . (object_renaming_declaration . 2)) (SUBTYPE . (object_renaming_declaration . 2)) (PROTECTED . (object_renaming_declaration . 2)) (PROCEDURE . (object_renaming_declaration . 2)) (PRAGMA . (object_renaming_declaration . 2)) (PACKAGE . (object_renaming_declaration . 2)) (OVERRIDING . (object_renaming_declaration . 2)) (NOT . (object_renaming_declaration . 2)) (GENERIC . (object_renaming_declaration . 2)) (FUNCTION . (object_renaming_declaration . 2)) (FOR . (object_renaming_declaration . 2)) (ENTRY . (object_renaming_declaration . 2)) (IDENTIFIER . (object_renaming_declaration . 2)) (BEGIN . (object_renaming_declaration . 2)))
       ((default . error) (END . (object_renaming_declaration . 1)) (PRIVATE . (object_renaming_declaration . 1)) (USE . (object_renaming_declaration . 1)) (TYPE . (object_renaming_declaration . 1)) (TASK . (object_renaming_declaration . 1)) (SUBTYPE . (object_renaming_declaration . 1)) (PROTECTED . (object_renaming_declaration . 1)) (PROCEDURE . (object_renaming_declaration . 1)) (PRAGMA . (object_renaming_declaration . 1)) (PACKAGE . (object_renaming_declaration . 1)) (OVERRIDING . (object_renaming_declaration . 1)) (NOT . (object_renaming_declaration . 1)) (GENERIC . (object_renaming_declaration . 1)) (FUNCTION . (object_renaming_declaration . 1)) (FOR . (object_renaming_declaration . 1)) (ENTRY . (object_renaming_declaration . 1)) (IDENTIFIER . (object_renaming_declaration . 1)) (BEGIN . (object_renaming_declaration . 1)))
+      ((default . error) (SEMICOLON .  1229))
       ((default . error) (SEMICOLON .  1228))
-      ((default . error) (SEMICOLON .  1227))
-      ((default . error) (RECORD .  1226))
+      ((default . error) (RECORD .  1227))
       ((default . error) (IDENTIFIER . (component_clause_list . 1)) (END . (component_clause_list . 1)))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
       ((default . error) (PRIVATE . (package_body_stub . 0)) (END . (package_body_stub . 0)) (BEGIN . (package_body_stub . 0)) (IDENTIFIER . (package_body_stub . 0)) (ENTRY . (package_body_stub . 0)) (FOR . (package_body_stub . 0)) (FUNCTION . (package_body_stub . 0)) (GENERIC . (package_body_stub . 0)) (NOT . (package_body_stub . 0)) (OVERRIDING . (package_body_stub . 0)) (PACKAGE . (package_body_stub . 0)) (PRAGMA . (package_body_stub . 0)) (PROCEDURE . (package_body_stub . 0)) (PROTECTED . (package_body_stub . 0)) (SUBTYPE . (package_body_stub . 0)) (TASK . (package_body_stub . 0)) (TYPE . (package_body_stub . 0)) (USE . (package_body_stub . 0)))
       ((default . error) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
-      ((default . error) (SEMICOLON .  1223))
+      ((default . error) (SEMICOLON .  1224))
       ((default . error) (PRIVATE . (protected_body_stub . 0)) (END . (protected_body_stub . 0)) (BEGIN . (protected_body_stub . 0)) (IDENTIFIER . (protected_body_stub . 0)) (ENTRY . (protected_body_stub . 0)) (FOR . (protected_body_stub . 0)) (FUNCTION . (protected_body_stub . 0)) (GENERIC . (protected_body_stub . 0)) (NOT . (protected_body_stub . 0)) (OVERRIDING . (protected_body_stub . 0)) (PACKAGE . (protected_body_stub . 0)) (PRAGMA . (protected_body_stub . 0)) (PROCEDURE . (protected_body_stub . 0)) (PROTECTED . (protected_body_stub . 0)) (SUBTYPE . (protected_body_stub . 0)) (TASK . (protected_body_stub . 0)) (TYPE . (protected_body_stub . 0)) (USE . (protected_body_stub . 0)))
       ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE .  11) (SUBTYPE .  292) (PRAGMA .  7) (NOT .  4) (OVERRIDING .  5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR .  289) (IDENTIFIER .  288) (TYPE .  294) (GENERIC .  2) (PROTECTED .  291) (TASK .  293) (PACKAGE .  290))
-      ((default . error) (END .  1221))
+      ((default . error) (END .  1222))
       ((default . error) (SEMICOLON . (protected_definition . 1)))
       ((default . error) (LOOP . (subtype_indication . 0)) (DO . (subtype_indication . 0)) (RIGHT_PAREN . (subtype_indication . 0)) (COMMA . (subtype_indication . 0)) (EQUAL_GREATER . (subtype_indication . 0)) (WITH . (subtype_indication . 0)) (AND . (subtype_indication . 0)) (OF . (subtype_indication . 0)) (SEMICOLON . (subtype_indication . 0)) (COLON_EQUAL . (subtype_indication . 0)))
       ((default . error) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
-      ((default . error) (SEMICOLON .  1219))
+      ((default . error) (SEMICOLON .  1220))
       ((default . error) (PRIVATE . (task_body_stub . 0)) (END . (task_body_stub . 0)) (BEGIN . (task_body_stub . 0)) (IDENTIFIER . (task_body_stub . 0)) (ENTRY . (task_body_stub . 0)) (FOR . (task_body_stub . 0)) (FUNCTION . (task_body_stub . 0)) (GENERIC . (task_body_stub . 0)) (NOT . (task_body_stub . 0)) (OVERRIDING . (task_body_stub . 0)) (PACKAGE . (task_body_stub . 0)) (PRAGMA . (task_body_stub . 0)) (PROCEDURE . (task_body_stub . 0)) (PROTECTED . (task_body_stub . 0)) (SUBTYPE . (task_body_stub . 0)) (TASK . (task_body_stub . 0)) (TYPE . (task_body_stub . 0)) (USE . (task_body_stub . 0)))
       ((default . error) (END . (declarative_part_opt . 0)) (PRIVATE . (declarative_part_opt . 0)) (USE .  11) (SUBTYPE .  292) (PRAGMA .  7) (NOT .  4) (OVERRIDING .  5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR .  289) (IDENTIFIER .  288) (TYPE .  294) (GENERIC .  2) (PROTECTED .  291) (TASK .  293) (PACKAGE .  290))
-      ((default . error) (END .  1217))
+      ((default . error) (END .  1218))
       ((default . error) (SEMICOLON . (task_definition . 1)))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
       ((default . error) (SEMICOLON . (enumeration_type_definition . 0)) (WITH . (enumeration_type_definition . 0)))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
       ((default . error) (ALIASED .  1074) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (ACCESS . (null_exclusion_opt . 0)) (NOT .  862))
-      ((default . error) (RECORD .  1211))
+      ((default . error) (RECORD .  1212))
       ((default . error) (WHEN . (component_list . 1)) (FOR . (component_list . 1)) (IDENTIFIER . (component_list . 1)) (CASE . (component_list . 1)) (END . (component_list . 1)))
       ((default . error) (WHEN . (component_list . 2)) (FOR . (component_list . 2)) (IDENTIFIER . (component_list . 2)) (CASE . (component_list . 2)) (END . (component_list . 2)))
       ((default . error) (WHEN . (component_list . 4)) (FOR . (component_list . 4)) (IDENTIFIER . (component_list . 4)) (CASE . (component_list . 4)) (END . (component_list . 4)))
       ((default . error) (IS . (direct_name . 0)))
       ((default . error) (IS . (direct_name . 1)))
-      ((default . error) (IS .  1210))
-      ((default . error) (WITH . (and_interface_list_opt . 0)) (AND .  1205))
-      ((default . error) (DOT .  87) (TICK .  88) (AND .  1205) (WITH . ((and_interface_list_opt . 0) (constraint_opt . 0))) (SEMICOLON . (constraint_opt . 0)) (RANGE .  833) (LEFT_PAREN .  803))
-      ((default . error) (SEMICOLON .  1204))
+      ((default . error) (IS . (direct_name_opt . 1)))
+      ((default . error) (IS .  1211))
+      ((default . error) (WITH . (and_interface_list_opt . 0)) (AND .  1206))
+      ((default . error) (DOT .  87) (TICK .  88) (AND .  1206) (WITH . ((and_interface_list_opt . 0) (constraint_opt . 0))) (SEMICOLON . (constraint_opt . 0)) (RANGE .  833) (LEFT_PAREN .  803))
+      ((default . error) (SEMICOLON .  1205))
       ((default . error) (END . (full_type_declaration . 0)) (PRIVATE . (full_type_declaration . 0)) (USE . (full_type_declaration . 0)) (TYPE . (full_type_declaration . 0)) (TASK . (full_type_declaration . 0)) (SUBTYPE . (full_type_declaration . 0)) (PROTECTED . (full_type_declaration . 0)) (PROCEDURE . (full_type_declaration . 0)) (PRAGMA . (full_type_declaration . 0)) (PACKAGE . (full_type_declaration . 0)) (OVERRIDING . (full_type_declaration . 0)) (NOT . (full_type_declaration . 0)) (GENERIC . (full_type_declaration . 0)) (FUNCTION . (full_type_declaration . 0)) (FOR . (full_type_declaration . 0)) (ENTRY . (full_type_declaration . 0)) (IDENTIFIER . (full_type_declaration . 0)) (BEGIN . (full_type_declaration . 0)))
       ((default . error) (PRIVATE . (object_declaration . 3)) (END . (object_declaration . 3)) (BEGIN . (object_declaration . 3)) (IDENTIFIER . (object_declaration . 3)) (ENTRY . (object_declaration . 3)) (FOR . (object_declaration . 3)) (FUNCTION . (object_declaration . 3)) (GENERIC . (object_declaration . 3)) (NOT . (object_declaration . 3)) (OVERRIDING . (object_declaration . 3)) (PACKAGE . (object_declaration . 3)) (PRAGMA . (object_declaration . 3)) (PROCEDURE . (object_declaration . 3)) (PROTECTED . (object_declaration . 3)) (SUBTYPE . (object_declaration . 3)) (TASK . (object_declaration . 3)) (TYPE . (object_declaration . 3)) (USE . (object_declaration . 3)))
       ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH .  108))
       ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .  695))
       ((default . error) (PROCEDURE . (protected_operation_item_list . 1)) (OVERRIDING . (protected_operation_item_list . 1)) (NOT . (protected_operation_item_list . 1)) (FUNCTION . (protected_operation_item_list . 1)) (FOR . (protected_operation_item_list . 1)) (ENTRY . (protected_operation_item_list . 1)) (END . (protected_operation_item_list . 1)))
       ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (IS . (aspect_specification_opt . 0)) (WITH .  108))
-      ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN .  1194))
+      ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN .  1195))
       ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
       ((default . error) (THEN . (accept_statement . 1)) (WHEN . (accept_statement . 1)) (EXCEPTION . (accept_statement . 1)) (ELSIF . (accept_statement . 1)) (ELSE . (accept_statement . 1)) (OR . (accept_statement . 1)) (END . (accept_statement . 1)) (LESS_LESS . (accept_statement . 1)) (IDENTIFIER . (accept_statement . 1)) (STRING_LITERAL . (accept_statement . 1)) (CHARACTER_LITERAL . (accept_statement . 1)) (ACCEPT . (accept_statement . 1)) (ABORT . (accept_statement . 1)) (BEGIN . (accept_statement . 1)) (CASE . (accept_statement . 1)) (DECLARE . (accept_statement . 1)) (DELAY . (accept_statement . 1)) (EXIT . (accept_statement . 1)) (FOR . (accept_statement . 1)) (GOTO . (accept_statement . 1)) (IF . (accept_statement . 1)) (LOOP . (accept_statement . 1)) (NULL . (accept_statement . 1)) (PRAGMA . (accept_statement . 1)) (RAISE . (accept_statement . 1)) (REQUEUE . (accept_statement . 1)) (RETURN . (accept_statement . 1)) (SELECT . (accept_statement . 1)) (WHILE . (accept_statement . 1)))
       ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
       ((default . error) (OR . (block_statement . 1)) (THEN . (block_statement . 1)) (WHEN . (block_statement . 1)) (EXCEPTION . (block_statement . 1)) (END . (block_statement . 1)) (LESS_LESS . (block_statement . 1)) (IDENTIFIER . (block_statement . 1)) (STRING_LITERAL . (block_statement . 1)) (CHARACTER_LITERAL . (block_statement . 1)) (ACCEPT . (block_statement . 1)) (ABORT . (block_statement . 1)) (BEGIN . (block_statement . 1)) (CASE . (block_statement . 1)) (DECLARE . (block_statement . 1)) (DELAY . (block_statement . 1)) (EXIT . (block_statement . 1)) (FOR . (block_statement . 1)) (GOTO . (block_statement . 1)) (IF . (block_statement . 1)) (LOOP . (block_statement . 1)) (NULL . (block_statement . 1)) (PRAGMA . (block_statement . 1)) (RAISE . (block_statement . 1)) (REQUEUE . (block_statement . 1)) (RETURN . (block_statement . 1)) (SELECT . (block_statement . 1)) (WHILE . (block_statement . 1)) (ELSE . (block_statement . 1)) (ELSIF . (block_statement . 1)))
-      ((default . error) (CASE .  1191))
+      ((default . error) (CASE .  1192))
       ((default . error) (WHEN . (case_statement_alternative_list . 1)) (END . (case_statement_alternative_list . 1)))
-      ((default . error) (BAR .  275) (EQUAL_GREATER .  1190))
+      ((default . error) (BAR .  275) (EQUAL_GREATER .  1191))
       ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .  695))
       ((default . error) (OR . (exit_statement . 0)) (THEN . (exit_statement . 0)) (WHEN . (exit_statement . 0)) (EXCEPTION . (exit_statement . 0)) (END . (exit_statement . 0)) (LESS_LESS . (exit_statement . 0)) (IDENTIFIER . (exit_statement . 0)) (STRING_LITERAL . (exit_statement . 0)) (CHARACTER_LITERAL . (exit_statement . 0)) (ACCEPT . (exit_statement . 0)) (ABORT . (exit_statement . 0)) (BEGIN . (exit_statement . 0)) (CASE . (exit_statement . 0)) (DECLARE . (exit_statement . 0)) (DELAY . (exit_statement . 0)) (EXIT . (exit_statement . 0)) (FOR . (exit_statement . 0)) (GOTO . (exit_statement . 0)) (IF . (exit_statement . 0)) (LOOP . (exit_statement . 0)) (NULL . (exit_statement . 0)) (PRAGMA . (exit_statement . 0)) (RAISE . (exit_statement . 0)) (REQUEUE . (exit_statement . 0)) (RETURN . (exit_statement . 0)) (SELECT . (exit_statement . 0)) (WHILE . (exit_statement . 0)) (ELSE . (exit_statement . 0)) (ELSIF . (exit_statement . 0)))
       ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
       ((default . error) (THEN . (expression_opt . 0)) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
-      ((default . error) (IF .  1186))
+      ((default . error) (IF .  1187))
       ((default . error) (END . (elsif_statement_list . 0)) (ELSE . (elsif_statement_list . 0)) (ELSIF . (elsif_statement_list . 0)))
-      ((default . error) (END .  1184) (ELSE .  1183) (ELSIF .  1146))
-      ((default . error) (SEMICOLON .  1182))
+      ((default . error) (END .  1185) (ELSE .  1184) (ELSIF .  1147))
+      ((default . error) (SEMICOLON .  1183))
       ((default . error) (OR . (raise_statement . 1)) (THEN . (raise_statement . 1)) (WHEN . (raise_statement . 1)) (EXCEPTION . (raise_statement . 1)) (END . (raise_statement . 1)) (LESS_LESS . (raise_statement . 1)) (IDENTIFIER . (raise_statement . 1)) (STRING_LITERAL . (raise_statement . 1)) (CHARACTER_LITERAL . (raise_statement . 1)) (ACCEPT . (raise_statement . 1)) (ABORT . (raise_statement . 1)) (BEGIN . (raise_statement . 1)) (CASE . (raise_statement . 1)) (DECLARE . (raise_statement . 1)) (DELAY . (raise_statement . 1)) (EXIT . (raise_statement . 1)) (FOR . (raise_statement . 1)) (GOTO . (raise_statement . 1)) (IF . (raise_statement . 1)) (LOOP . (raise_statement . 1)) (NULL . (raise_statement . 1)) (PRAGMA . (raise_statement . 1)) (RAISE . (raise_statement . 1)) (REQUEUE . (raise_statement . 1)) (RETURN . (raise_statement . 1)) (SELECT . (raise_statement . 1)) (WHILE . (raise_statement . 1)) (ELSE . (raise_statement . 1)) (ELSIF . (raise_statement . 1)))
       ((default . error) (OR . (requeue_statement . 0)) (THEN . (requeue_statement . 0)) (WHEN . (requeue_statement . 0)) (EXCEPTION . (requeue_statement . 0)) (END . (requeue_statement . 0)) (LESS_LESS . (requeue_statement . 0)) (IDENTIFIER . (requeue_statement . 0)) (STRING_LITERAL . (requeue_statement . 0)) (CHARACTER_LITERAL . (requeue_statement . 0)) (ACCEPT . (requeue_statement . 0)) (ABORT . (requeue_statement . 0)) (BEGIN . (requeue_statement . 0)) (CASE . (requeue_statement . 0)) (DECLARE . (requeue_statement . 0)) (DELAY . (requeue_statement . 0)) (EXIT . (requeue_statement . 0)) (FOR . (requeue_statement . 0)) (GOTO . (requeue_statement . 0)) (IF . (requeue_statement . 0)) (LOOP . (requeue_statement . 0)) (NULL . (requeue_statement . 0)) (PRAGMA . (requeue_statement . 0)) (RAISE . (requeue_statement . 0)) (REQUEUE . (requeue_statement . 0)) (RETURN . (requeue_statement . 0)) (SELECT . (requeue_statement . 0)) (WHILE . (requeue_statement . 0)) (ELSE . (requeue_statement . 0)) (ELSIF . (requeue_statement . 0)))
-      ((default . error) (RETURN .  1181))
+      ((default . error) (RETURN .  1182))
       ((default . error) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (ACCESS . (null_exclusion_opt . 0)) (NOT .  862))
-      ((default . error) (END .  1177))
-      ((default . error) (SELECT .  1176))
+      ((default . error) (END .  1178))
+      ((default . error) (SELECT .  1177))
       ((default . error) (OR . (selective_accept . 1)) (THEN . (selective_accept . 1)) (WHEN . (selective_accept . 1)) (EXCEPTION . (selective_accept . 1)) (END . (selective_accept . 1)) (LESS_LESS . (selective_accept . 1)) (IDENTIFIER . (selective_accept . 1)) (STRING_LITERAL . (selective_accept . 1)) (CHARACTER_LITERAL . (selective_accept . 1)) (ACCEPT . (selective_accept . 1)) (ABORT . (selective_accept . 1)) (BEGIN . (selective_accept . 1)) (CASE . (selective_accept . 1)) (DECLARE . (selective_accept . 1)) (DELAY . (selective_accept . 1)) (EXIT . (selective_accept . 1)) (FOR . (selective_accept . 1)) (GOTO . (selective_accept . 1)) (IF . (selective_accept . 1)) (LOOP . (selective_accept . 1)) (NULL . (selective_accept . 1)) (PRAGMA . (selective_accept . 1)) (RAISE . (selective_accept . 1)) (REQUEUE . (selective_accept . 1)) (RETURN . (selective_accept . 1)) (SELECT . (selective_accept . 1)) (WHILE . (selective_accept . 1)) (ELSE . (selective_accept . 1)) (ELSIF . (selective_accept . 1)))
-      ((default . error) (SELECT .  1175))
+      ((default . error) (SELECT .  1176))
       ((default . error) (END . (delay_alternative . 0)) (OR . (delay_alternative . 0)) (ELSE . (delay_alternative . 0)))
-      ((default . error) (SELECT .  1174))
-      ((default . error) (SEMICOLON .  1173))
+      ((default . error) (SELECT .  1175))
+      ((default . error) (SEMICOLON .  1174))
       ((default . error) (ELSE . (sequence_of_statements_opt . 0)) (OR . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
       ((default . error) (END . (select_alternative . 2)) (OR . (select_alternative . 2)) (ELSE . (select_alternative . 2)))
       ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .  695))
       ((default . error) (OTHERS .  936) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
       ((default . error) (WHEN . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
       ((default . error) (OTHERS .  936) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
-      ((default . error) (BAR .  1165) (EQUAL_GREATER .  1274))
+      ((default . error) (BAR .  1166) (EQUAL_GREATER .  1275))
       ((default . error) (WHEN . (exception_handler . 1)) (END . (exception_handler . 1)))
       ((default . error) (EQUAL_GREATER . (exception_choice_list . 1)) (BAR . (exception_choice_list . 1)))
-      ((default . error) (SEMICOLON .  1273))
+      ((default . error) (SEMICOLON .  1274))
       ((default . error) (ELSE . (select_alternative . 0)) (OR . (select_alternative . 0)) (END . (select_alternative . 0)))
       ((default . error) (ELSE . (select_alternative . 4)) (OR . (select_alternative . 4)) (END . (select_alternative . 4)))
+      ((default . error) (SEMICOLON .  1273))
       ((default . error) (SEMICOLON .  1272))
       ((default . error) (SEMICOLON .  1271))
-      ((default . error) (SEMICOLON .  1270))
-      ((default . error) (SELECT .  1269))
+      ((default . error) (SELECT .  1270))
       ((default . error) (DO . (return_subtype_indication . 1)) (SEMICOLON . (return_subtype_indication . 1)) (COLON_EQUAL . (return_subtype_indication . 1)))
-      ((default . error) (DO . (extended_return_object_declaration . 1)) (SEMICOLON . (extended_return_object_declaration . 1)) (COLON_EQUAL .  1268))
+      ((default . error) (DO . (extended_return_object_declaration . 1)) (SEMICOLON . (extended_return_object_declaration . 1)) (COLON_EQUAL .  1269))
       ((default . error) (DO . (return_subtype_indication . 0)) (SEMICOLON . (return_subtype_indication . 0)) (COLON_EQUAL . (return_subtype_indication . 0)))
-      ((default . error) (SEMICOLON .  1267))
+      ((default . error) (SEMICOLON .  1268))
       ((default . error) (WHEN . (loop_statement . 1)) (THEN . (loop_statement . 1)) (OR . (loop_statement . 1)) (ELSIF . (loop_statement . 1)) (ELSE . (loop_statement . 1)) (WHILE . (loop_statement . 1)) (SELECT . (loop_statement . 1)) (RETURN . (loop_statement . 1)) (REQUEUE . (loop_statement . 1)) (RAISE . (loop_statement . 1)) (PRAGMA . (loop_statement . 1)) (NULL . (loop_statement . 1)) (LOOP . (loop_statement . 1)) (IF . (loop_statement . 1)) (GOTO . (loop_statement . 1)) (FOR . (loop_statement . 1)) (EXIT . (loop_statement . 1)) (DELAY . (loop_statement . 1)) (DECLARE . (loop_statement . 1)) (CASE . (loop_statement . 1)) (BEGIN . (loop_statement . 1)) (ABORT . (loop_statement . 1)) (ACCEPT . (loop_statement . 1)) (CHARACTER_LITERAL . (loop_statement . 1)) (STRING_LITERAL . (loop_statement . 1)) (IDENTIFIER . (loop_statement . 1)) (LESS_LESS . (loop_statement . 1)) (END . (loop_statement . 1)) (EXCEPTION . (loop_statement . 1)))
       ((default . error) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
-      ((default . error) (IF .  1265))
+      ((default . error) (IF .  1266))
       ((default . error) (ELSIF . (elsif_statement_list . 1)) (ELSE . (elsif_statement_list . 1)) (END . (elsif_statement_list . 1)))
-      ((default . error) (SEMICOLON .  1264))
-      ((default . error) (THEN .  1263))
-      ((default . error) (END .  1262))
-      ((default . error) (SEMICOLON .  1261))
+      ((default . error) (SEMICOLON .  1265))
+      ((default . error) (THEN .  1264))
+      ((default . error) (END .  1263))
+      ((default . error) (SEMICOLON .  1262))
       ((default . error) (END . (sequence_of_statements_opt . 0)) (WHEN . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
-      ((default . error) (SEMICOLON .  1259))
+      ((default . error) (SEMICOLON .  1260))
+      ((default . error) (END .  1259))
       ((default . error) (END .  1258))
-      ((default . error) (END .  1257))
-      ((default . error) (FOR .  1256) (IDENTIFIER .  72))
-      ((default . error) (WHEN .  1255))
+      ((default . error) (FOR .  1257) (IDENTIFIER .  72))
+      ((default . error) (WHEN .  1256))
       ((default . error) (WHEN . (entry_body_formal_part . 1)))
-      ((default . error) (SEMICOLON .  1254))
+      ((default . error) (SEMICOLON .  1255))
       ((default . error) (ELSE . (elsif_expression_item . 0)) (ELSIF . (elsif_expression_item . 0)) (RIGHT_PAREN . (elsif_expression_item . 0)))
       ((default . error) (DOT .  87) (TICK .  88) (LOOP . (iterator_specification . 2)) (EQUAL_GREATER . (iterator_specification . 2)) (LEFT_PAREN .  106))
+      ((default . error) (SEMICOLON .  1254))
       ((default . error) (SEMICOLON .  1253))
       ((default . error) (SEMICOLON .  1252))
       ((default . error) (SEMICOLON .  1251))
-      ((default . error) (SEMICOLON .  1250))
       ((default . error) (BEGIN . (private_type_declaration . 0)) (IDENTIFIER . (private_type_declaration . 0)) (ENTRY . (private_type_declaration . 0)) (FOR . (private_type_declaration . 0)) (FUNCTION . (private_type_declaration . 0)) (GENERIC . (private_type_declaration . 0)) (NOT . (private_type_declaration . 0)) (OVERRIDING . (private_type_declaration . 0)) (PACKAGE . (private_type_declaration . 0)) (PRAGMA . (private_type_declaration . 0)) (PROCEDURE . (private_type_declaration . 0)) (PROTECTED . (private_type_declaration . 0)) (SUBTYPE . (private_type_declaration . 0)) (TASK . (private_type_declaration . 0)) (TYPE . (private_type_declaration . 0)) (USE . (private_type_declaration . 0)) (PRIVATE . (private_type_declaration . 0)) (END . (private_type_declaration . 0)))
       ((default . error) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49))
-      ((default . error) (WITH .  1248))
+      ((default . error) (WITH .  1249))
       ((default . error) (WITH . (constraint_opt . 1)) (SEMICOLON . (constraint_opt . 1)))
       ((default . error) (WITH . (derived_type_definition . 1)) (SEMICOLON . (derived_type_definition . 1)))
-      ((default . error) (WITH .  1247))
-      ((default . error) (WHEN .  1244))
+      ((default . error) (WITH .  1248))
+      ((default . error) (WHEN .  1245))
       ((default . error) (SEMICOLON . (record_definition . 0)) (WITH . (record_definition . 0)))
-      ((default . error) (COLON_EQUAL .  1242) (SEMICOLON . (aspect_specification_opt . 0)) (WITH .  108))
+      ((default . error) (COLON_EQUAL .  1243) (SEMICOLON . (aspect_specification_opt . 0)) (WITH .  108))
       ((default . error) (SEMICOLON . (type_definition . 1)) (WITH . (type_definition . 1)))
       ((default . error) (RIGHT_PAREN . (enumeration_literal_list . 1)) (COMMA . (enumeration_literal_list . 1)))
-      ((default . error) (DOT_DOT .  1241))
+      ((default . error) (DOT_DOT .  1242))
       ((default . error) (WITH . (real_range_specification_opt . 0)) (SEMICOLON . (real_range_specification_opt . 0)) (RANGE .  1101))
       ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .  695))
-      ((default . error) (SEMICOLON .  1238))
+      ((default . error) (SEMICOLON .  1239))
       ((default . error) (USE . (task_type_declaration . 1)) (TYPE . (task_type_declaration . 1)) (TASK . (task_type_declaration . 1)) (SUBTYPE . (task_type_declaration . 1)) (PROTECTED . (task_type_declaration . 1)) (PROCEDURE . (task_type_declaration . 1)) (PRAGMA . (task_type_declaration . 1)) (PACKAGE . (task_type_declaration . 1)) (OVERRIDING . (task_type_declaration . 1)) (NOT . (task_type_declaration . 1)) (GENERIC . (task_type_declaration . 1)) (FUNCTION . (task_type_declaration . 1)) (FOR . (task_type_declaration . 1)) (ENTRY . (task_type_declaration . 1)) (IDENTIFIER . (task_type_declaration . 1)) (BEGIN . (task_type_declaration . 1)) (END . (task_type_declaration . 1)) (PRIVATE . (task_type_declaration . 1)))
-      ((default . error) (AND .  1061) (WITH .  1237))
+      ((default . error) (AND .  1061) (WITH .  1238))
       ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .  695))
-      ((default . error) (SEMICOLON .  1235))
+      ((default . error) (SEMICOLON .  1236))
       ((default . error) (USE . (protected_type_declaration . 1)) (TYPE . (protected_type_declaration . 1)) (TASK . (protected_type_declaration . 1)) (SUBTYPE . (protected_type_declaration . 1)) (PROTECTED . (protected_type_declaration . 1)) (PROCEDURE . (protected_type_declaration . 1)) (PRAGMA . (protected_type_declaration . 1)) (PACKAGE . (protected_type_declaration . 1)) (OVERRIDING . (protected_type_declaration . 1)) (NOT . (protected_type_declaration . 1)) (GENERIC . (protected_type_declaration . 1)) (FUNCTION . (protected_type_declaration . 1)) (FOR . (protected_type_declaration . 1)) (ENTRY . (protected_type_declaration . 1)) (IDENTIFIER . (protected_type_declaration . 1)) (BEGIN . (protected_type_declaration . 1)) (END . (protected_type_declaration . 1)) (PRIVATE . (protected_type_declaration . 1)))
-      ((default . error) (AND .  1061) (WITH .  1234))
-      ((default . error) (RANGE .  1233))
+      ((default . error) (AND .  1061) (WITH .  1235))
+      ((default . error) (RANGE .  1234))
       ((default . error) (SEMICOLON . (record_rep . 0)))
       ((default . error) (IDENTIFIER . (mod_clause_opt . 1)))
       ((default . error) (BEGIN . (object_renaming_declaration . 0)) (IDENTIFIER . (object_renaming_declaration . 0)) (ENTRY . (object_renaming_declaration . 0)) (FOR . (object_renaming_declaration . 0)) (FUNCTION . (object_renaming_declaration . 0)) (GENERIC . (object_renaming_declaration . 0)) (NOT . (object_renaming_declaration . 0)) (OVERRIDING . (object_renaming_declaration . 0)) (PACKAGE . (object_renaming_declaration . 0)) (PRAGMA . (object_renaming_declaration . 0)) (PROCEDURE . (object_renaming_declaration . 0)) (PROTECTED . (object_renaming_declaration . 0)) (SUBTYPE . (object_renaming_declaration . 0)) (TASK . (object_renaming_declaration . 0)) (TYPE . (object_renaming_declaration . 0)) (USE . (object_renaming_declaration . 0)) (PRIVATE . (object_renaming_declaration . 0)) (END . (object_renaming_declaration . 0)))
       ((default . error) (WITH . (type_definition . 5)) (SEMICOLON . (type_definition . 5)))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
-      ((default . error) (SEMICOLON .  1291))
+      ((default . error) (SEMICOLON .  1292))
       ((default . error) (EQUAL_GREATER . (discrete_choice_list . 0)) (BAR . (discrete_choice_list . 0)) (OTHERS .  172) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  171) (NULL .  150) (NEW .  148) (LEFT_PAREN .  147))
-      ((default . error) (END .  1288) (WHEN .  1244))
+      ((default . error) (END .  1289) (WHEN .  1245))
       ((default . error) (END . (variant_list . 0)) (WHEN . (variant_list . 0)))
-      ((default . error) (PRIVATE .  1287))
+      ((default . error) (PRIVATE .  1288))
       ((default . error) (RECORD .  848) (NULL .  846))
       ((default . error) (AND .  1061) (WITH . (and_interface_list_opt . 1)))
       ((default . error) (PRIVATE . (object_declaration . 2)) (END . (object_declaration . 2)) (BEGIN . (object_declaration . 2)) (IDENTIFIER . (object_declaration . 2)) (ENTRY . (object_declaration . 2)) (FOR . (object_declaration . 2)) (FUNCTION . (object_declaration . 2)) (GENERIC . (object_declaration . 2)) (NOT . (object_declaration . 2)) (OVERRIDING . (object_declaration . 2)) (PACKAGE . (object_declaration . 2)) (PRAGMA . (object_declaration . 2)) (PROCEDURE . (object_declaration . 2)) (PROTECTED . (object_declaration . 2)) (SUBTYPE . (object_declaration . 2)) (TASK . (object_declaration . 2)) (TYPE . (object_declaration . 2)) (USE . (object_declaration . 2)))
       ((default . error) (PRIVATE . (entry_declaration . 0)) (END . (entry_declaration . 0)) (BEGIN . (entry_declaration . 0)) (IDENTIFIER . (entry_declaration . 0)) (ENTRY . (entry_declaration . 0)) (FOR . (entry_declaration . 0)) (FUNCTION . (entry_declaration . 0)) (GENERIC . (entry_declaration . 0)) (NOT . (entry_declaration . 0)) (OVERRIDING . (entry_declaration . 0)) (PACKAGE . (entry_declaration . 0)) (PRAGMA . (entry_declaration . 0)) (PROCEDURE . (entry_declaration . 0)) (PROTECTED . (entry_declaration . 0)) (SUBTYPE . (entry_declaration . 0)) (TASK . (entry_declaration . 0)) (TYPE . (entry_declaration . 0)) (USE . (entry_declaration . 0)))
       ((default . error) (PRIVATE . (protected_body . 0)) (END . (protected_body . 0)) (BEGIN . (protected_body . 0)) (IDENTIFIER . (protected_body . 0)) (ENTRY . (protected_body . 0)) (FOR . (protected_body . 0)) (FUNCTION . (protected_body . 0)) (GENERIC . (protected_body . 0)) (NOT . (protected_body . 0)) (OVERRIDING . (protected_body . 0)) (PACKAGE . (protected_body . 0)) (PRAGMA . (protected_body . 0)) (PROCEDURE . (protected_body . 0)) (PROTECTED . (protected_body . 0)) (SUBTYPE . (protected_body . 0)) (TASK . (protected_body . 0)) (TYPE . (protected_body . 0)) (USE . (protected_body . 0)) ($EOI . (protected_body . 0)) (LIMITED . (protected_body . 0)) (SEPARATE . (protected_body . 0)) (WITH . (protected_body . 0)))
       ((default . error) (IS . (expression_opt . 0)) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
-      ((default . error) (IDENTIFIER .  1284))
+      ((default . error) (IDENTIFIER .  1285))
       ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .  695))
       ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .  695))
       ((default . error) (OR . (case_statement . 0)) (THEN . (case_statement . 0)) (WHEN . (case_statement . 0)) (EXCEPTION . (case_statement . 0)) (END . (case_statement . 0)) (LESS_LESS . (case_statement . 0)) (IDENTIFIER . (case_statement . 0)) (STRING_LITERAL . (case_statement . 0)) (CHARACTER_LITERAL . (case_statement . 0)) (ACCEPT . (case_statement . 0)) (ABORT . (case_statement . 0)) (BEGIN . (case_statement . 0)) (CASE . (case_statement . 0)) (DECLARE . (case_statement . 0)) (DELAY . (case_statement . 0)) (EXIT . (case_statement . 0)) (FOR . (case_statement . 0)) (GOTO . (case_statement . 0)) (IF . (case_statement . 0)) (LOOP . (case_statement . 0)) (NULL . (case_statement . 0)) (PRAGMA . (case_statement . 0)) (RAISE . (case_statement . 0)) (REQUEUE . (case_statement . 0)) (RETURN . (case_statement . 0)) (SELECT . (case_statement . 0)) (WHILE . (case_statement . 0)) (ELSE . (case_statement . 0)) (ELSIF . (case_statement . 0)))
       ((default . error) (END . (case_statement_alternative . 0)) (WHEN . (case_statement_alternative . 0)))
       ((default . error) (OR . (block_statement . 0)) (THEN . (block_statement . 0)) (WHEN . (block_statement . 0)) (EXCEPTION . (block_statement . 0)) (END . (block_statement . 0)) (LESS_LESS . (block_statement . 0)) (IDENTIFIER . (block_statement . 0)) (STRING_LITERAL . (block_statement . 0)) (CHARACTER_LITERAL . (block_statement . 0)) (ACCEPT . (block_statement . 0)) (ABORT . (block_statement . 0)) (BEGIN . (block_statement . 0)) (CASE . (block_statement . 0)) (DECLARE . (block_statement . 0)) (DELAY . (block_statement . 0)) (EXIT . (block_statement . 0)) (FOR . (block_statement . 0)) (GOTO . (block_statement . 0)) (IF . (block_statement . 0)) (LOOP . (block_statement . 0)) (NULL . (block_statement . 0)) (PRAGMA . (block_statement . 0)) (RAISE . (block_statement . 0)) (REQUEUE . (block_statement . 0)) (RETURN . (block_statement . 0)) (SELECT . (block_statement . 0)) (WHILE . (block_statement . 0)) (ELSE . (block_statement . 0)) (ELSIF . (block_statement . 0)))
-      ((default . error) (IF .  1281))
+      ((default . error) (IF .  1282))
       ((default . error) (ELSE . (sequence_of_statements_opt . 0)) (ELSIF . (sequence_of_statements_opt . 0)) (END . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
       ((default . error) (OR . (if_statement . 3)) (THEN . (if_statement . 3)) (WHEN . (if_statement . 3)) (EXCEPTION . (if_statement . 3)) (END . (if_statement . 3)) (LESS_LESS . (if_statement . 3)) (IDENTIFIER . (if_statement . 3)) (STRING_LITERAL . (if_statement . 3)) (CHARACTER_LITERAL . (if_statement . 3)) (ACCEPT . (if_statement . 3)) (ABORT . (if_statement . 3)) (BEGIN . (if_statement . 3)) (CASE . (if_statement . 3)) (DECLARE . (if_statement . 3)) (DELAY . (if_statement . 3)) (EXIT . (if_statement . 3)) (FOR . (if_statement . 3)) (GOTO . (if_statement . 3)) (IF . (if_statement . 3)) (LOOP . (if_statement . 3)) (NULL . (if_statement . 3)) (PRAGMA . (if_statement . 3)) (RAISE . (if_statement . 3)) (REQUEUE . (if_statement . 3)) (RETURN . (if_statement . 3)) (SELECT . (if_statement . 3)) (WHILE . (if_statement . 3)) (ELSE . (if_statement . 3)) (ELSIF . (if_statement . 3)))
-      ((default . error) (SEMICOLON .  1279))
-      ((default . error) (END .  1278))
+      ((default . error) (SEMICOLON .  1280))
+      ((default . error) (END .  1279))
       ((default . error) (OR . (extended_return_statement . 0)) (THEN . (extended_return_statement . 0)) (WHEN . (extended_return_statement . 0)) (EXCEPTION . (extended_return_statement . 0)) (END . (extended_return_statement . 0)) (LESS_LESS . (extended_return_statement . 0)) (IDENTIFIER . (extended_return_statement . 0)) (STRING_LITERAL . (extended_return_statement . 0)) (CHARACTER_LITERAL . (extended_return_statement . 0)) (ACCEPT . (extended_return_statement . 0)) (ABORT . (extended_return_statement . 0)) (BEGIN . (extended_return_statement . 0)) (CASE . (extended_return_statement . 0)) (DECLARE . (extended_return_statement . 0)) (DELAY . (extended_return_statement . 0)) (EXIT . (extended_return_statement . 0)) (FOR . (extended_return_statement . 0)) (GOTO . (extended_return_statement . 0)) (IF . (extended_return_statement . 0)) (LOOP . (extended_return_statement . 0)) (NULL . (extended_return_statement . 0)) (PRAGMA . (extended_return_statement . 0)) (RAISE . (extended_return_statement . 0)) (REQUEUE . (extended_return_statement . 0)) (RETURN . (extended_return_statement . 0)) (SELECT . (extended_return_statement . 0)) (WHILE . (extended_return_statement . 0)) (ELSE . (extended_return_statement . 0)) (ELSIF . (extended_return_statement . 0)))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
-      ((default . error) (SEMICOLON .  1276))
+      ((default . error) (SEMICOLON .  1277))
       ((default . error) (OR . (selective_accept . 0)) (THEN . (selective_accept . 0)) (WHEN . (selective_accept . 0)) (EXCEPTION . (selective_accept . 0)) (END . (selective_accept . 0)) (LESS_LESS . (selective_accept . 0)) (IDENTIFIER . (selective_accept . 0)) (STRING_LITERAL . (selective_accept . 0)) (CHARACTER_LITERAL . (selective_accept . 0)) (ACCEPT . (selective_accept . 0)) (ABORT . (selective_accept . 0)) (BEGIN . (selective_accept . 0)) (CASE . (selective_accept . 0)) (DECLARE . (selective_accept . 0)) (DELAY . (selective_accept . 0)) (EXIT . (selective_accept . 0)) (FOR . (selective_accept . 0)) (GOTO . (selective_accept . 0)) (IF . (selective_accept . 0)) (LOOP . (selective_accept . 0)) (NULL . (selective_accept . 0)) (PRAGMA . (selective_accept . 0)) (RAISE . (selective_accept . 0)) (REQUEUE . (selective_accept . 0)) (RETURN . (selective_accept . 0)) (SELECT . (selective_accept . 0)) (WHILE . (selective_accept . 0)) (ELSE . (selective_accept . 0)) (ELSIF . (selective_accept . 0)))
       ((default . error) (OR . (conditional_entry_call . 0)) (THEN . (conditional_entry_call . 0)) (WHEN . (conditional_entry_call . 0)) (EXCEPTION . (conditional_entry_call . 0)) (END . (conditional_entry_call . 0)) (LESS_LESS . (conditional_entry_call . 0)) (IDENTIFIER . (conditional_entry_call . 0)) (STRING_LITERAL . (conditional_entry_call . 0)) (CHARACTER_LITERAL . (conditional_entry_call . 0)) (ACCEPT . (conditional_entry_call . 0)) (ABORT . (conditional_entry_call . 0)) (BEGIN . (conditional_entry_call . 0)) (CASE . (conditional_entry_call . 0)) (DECLARE . (conditional_entry_call . 0)) (DELAY . (conditional_entry_call . 0)) (EXIT . (conditional_entry_call . 0)) (FOR . (conditional_entry_call . 0)) (GOTO . (conditional_entry_call . 0)) (IF . (conditional_entry_call . 0)) (LOOP . (conditional_entry_call . 0)) (NULL . (conditional_entry_call . 0)) (PRAGMA . (conditional_entry_call . 0)) (RAISE . (conditional_entry_call . 0)) (REQUEUE . (conditional_entry_call . 0)) (RETURN . (conditional_entry_call . 0)) (SELECT . (conditional_entry_call . 0)) (WHILE . (conditional_entry_call . 0)) (ELSE . (conditional_entry_call . 0)) (ELSIF . (conditional_entry_call . 0)))
       ((default . error) (OR . (timed_entry_call . 0)) (THEN . (timed_entry_call . 0)) (WHEN . (timed_entry_call . 0)) (EXCEPTION . (timed_entry_call . 0)) (END . (timed_entry_call . 0)) (LESS_LESS . (timed_entry_call . 0)) (IDENTIFIER . (timed_entry_call . 0)) (STRING_LITERAL . (timed_entry_call . 0)) (CHARACTER_LITERAL . (timed_entry_call . 0)) (ACCEPT . (timed_entry_call . 0)) (ABORT . (timed_entry_call . 0)) (BEGIN . (timed_entry_call . 0)) (CASE . (timed_entry_call . 0)) (DECLARE . (timed_entry_call . 0)) (DELAY . (timed_entry_call . 0)) (EXIT . (timed_entry_call . 0)) (FOR . (timed_entry_call . 0)) (GOTO . (timed_entry_call . 0)) (IF . (timed_entry_call . 0)) (LOOP . (timed_entry_call . 0)) (NULL . (timed_entry_call . 0)) (PRAGMA . (timed_entry_call . 0)) (RAISE . (timed_entry_call . 0)) (REQUEUE . (timed_entry_call . 0)) (RETURN . (timed_entry_call . 0)) (SELECT . (timed_entry_call . 0)) (WHILE . (timed_entry_call . 0)) (ELSE . (timed_entry_call . 0)) (ELSIF . (timed_entry_call . 0)))
       ((default . error) (WHEN . (exception_handler . 0)) (END . (exception_handler . 0)))
       ((default . error) (WHEN . (asynchronous_select . 0)) (THEN . (asynchronous_select . 0)) (OR . (asynchronous_select . 0)) (ELSIF . (asynchronous_select . 0)) (ELSE . (asynchronous_select . 0)) (WHILE . (asynchronous_select . 0)) (SELECT . (asynchronous_select . 0)) (RETURN . (asynchronous_select . 0)) (REQUEUE . (asynchronous_select . 0)) (RAISE . (asynchronous_select . 0)) (PRAGMA . (asynchronous_select . 0)) (NULL . (asynchronous_select . 0)) (LOOP . (asynchronous_select . 0)) (IF . (asynchronous_select . 0)) (GOTO . (asynchronous_select . 0)) (FOR . (asynchronous_select . 0)) (EXIT . (asynchronous_select . 0)) (DELAY . (asynchronous_select . 0)) (DECLARE . (asynchronous_select . 0)) (CASE . (asynchronous_select . 0)) (BEGIN . (asynchronous_select . 0)) (ABORT . (asynchronous_select . 0)) (ACCEPT . (asynchronous_select . 0)) (CHARACTER_LITERAL . (asynchronous_select . 0)) (STRING_LITERAL . (asynchronous_select . 0)) (IDENTIFIER . (asynchronous_select . 0)) (LESS_LESS . (asynchronous_select . 0)) (END . (asynchronous_select . 0)) (EXCEPTION . (asynchronous_select . 0)))
       ((default . error) (DO . (extended_return_object_declaration . 0)) (SEMICOLON . (extended_return_object_declaration . 0)))
-      ((default . error) (IF .  1309))
+      ((default . error) (IF .  1310))
       ((default . error) (WHEN . (if_statement . 1)) (THEN . (if_statement . 1)) (OR . (if_statement . 1)) (ELSIF . (if_statement . 1)) (ELSE . (if_statement . 1)) (WHILE . (if_statement . 1)) (SELECT . (if_statement . 1)) (RETURN . (if_statement . 1)) (REQUEUE . (if_statement . 1)) (RAISE . (if_statement . 1)) (PRAGMA . (if_statement . 1)) (NULL . (if_statement . 1)) (LOOP . (if_statement . 1)) (IF . (if_statement . 1)) (GOTO . (if_statement . 1)) (FOR . (if_statement . 1)) (EXIT . (if_statement . 1)) (DELAY . (if_statement . 1)) (DECLARE . (if_statement . 1)) (CASE . (if_statement . 1)) (BEGIN . (if_statement . 1)) (ABORT . (if_statement . 1)) (ACCEPT . (if_statement . 1)) (CHARACTER_LITERAL . (if_statement . 1)) (STRING_LITERAL . (if_statement . 1)) (IDENTIFIER . (if_statement . 1)) (LESS_LESS . (if_statement . 1)) (END . (if_statement . 1)) (EXCEPTION . (if_statement . 1)))
       ((default . error) (ELSE . (elsif_statement_item . 0)) (ELSIF . (elsif_statement_item . 0)) (END . (elsif_statement_item . 0)))
+      ((default . error) (SEMICOLON .  1309))
       ((default . error) (SEMICOLON .  1308))
       ((default . error) (SEMICOLON .  1307))
-      ((default . error) (SEMICOLON .  1306))
-      ((default . error) (IN .  1305))
-      ((default . error) (IS .  1304))
+      ((default . error) (IN .  1306))
+      ((default . error) (IS .  1305))
       ((default . error) (WITH . (derived_type_definition . 0)) (SEMICOLON . (derived_type_definition . 0)))
       ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH .  108))
-      ((default . error) (CASE .  1302))
+      ((default . error) (CASE .  1303))
       ((default . error) (WHEN . (variant_list . 1)) (END . (variant_list . 1)))
-      ((default . error) (BAR .  275) (EQUAL_GREATER .  1301))
+      ((default . error) (BAR .  275) (EQUAL_GREATER .  1302))
       ((default . error) (WHEN . (component_declaration . 1)) (END . (component_declaration . 1)) (CASE . (component_declaration . 1)) (IDENTIFIER . (component_declaration . 1)) (FOR . (component_declaration . 1)))
       ((default . error) (SEMICOLON . (aspect_specification_opt . 0)) (WITH .  108))
       ((default . error) (SEMICOLON . (real_range_specification_opt . 1)) (WITH . (real_range_specification_opt . 1)))
+      ((default . error) (SEMICOLON .  1300))
       ((default . error) (SEMICOLON .  1299))
-      ((default . error) (SEMICOLON .  1298))
-      ((default . error) (DOT_DOT .  1297))
+      ((default . error) (DOT_DOT .  1298))
       ((default . error) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  149) (NULL .  150) (NEW .  148) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (LEFT_PAREN .  147))
       ((default . error) (PRIVATE . (protected_type_declaration . 0)) (END . (protected_type_declaration . 0)) (BEGIN . (protected_type_declaration . 0)) (IDENTIFIER . (protected_type_declaration . 0)) (ENTRY . (protected_type_declaration . 0)) (FOR . (protected_type_declaration . 0)) (FUNCTION . (protected_type_declaration . 0)) (GENERIC . (protected_type_declaration . 0)) (NOT . (protected_type_declaration . 0)) (OVERRIDING . (protected_type_declaration . 0)) (PACKAGE . (protected_type_declaration . 0)) (PRAGMA . (protected_type_declaration . 0)) (PROCEDURE . (protected_type_declaration . 0)) (PROTECTED . (protected_type_declaration . 0)) (SUBTYPE . (protected_type_declaration . 0)) (TASK . (protected_type_declaration . 0)) (TYPE . (protected_type_declaration . 0)) (USE . (protected_type_declaration . 0)))
       ((default . error) (PRIVATE . (task_type_declaration . 0)) (END . (task_type_declaration . 0)) (BEGIN . (task_type_declaration . 0)) (IDENTIFIER . (task_type_declaration . 0)) (ENTRY . (task_type_declaration . 0)) (FOR . (task_type_declaration . 0)) (FUNCTION . (task_type_declaration . 0)) (GENERIC . (task_type_declaration . 0)) (NOT . (task_type_declaration . 0)) (OVERRIDING . (task_type_declaration . 0)) (PACKAGE . (task_type_declaration . 0)) (PRAGMA . (task_type_declaration . 0)) (PROCEDURE . (task_type_declaration . 0)) (PROTECTED . (task_type_declaration . 0)) (SUBTYPE . (task_type_declaration . 0)) (TASK . (task_type_declaration . 0)) (TYPE . (task_type_declaration . 0)) (USE . (task_type_declaration . 0)))
-      ((default . error) (SEMICOLON .  1316))
-      ((default . error) (NULL .  1009) (CASE .  1008) (IDENTIFIER .  72) (FOR .  289))
+      ((default . error) (SEMICOLON .  1317))
+      ((default . error) (END . (component_list_opt . 0)) (WHEN . (component_list_opt . 0)) (NULL .  1009) (CASE .  1008) (IDENTIFIER .  72) (FOR .  289))
+      ((default . error) (SEMICOLON .  1315))
       ((default . error) (SEMICOLON .  1314))
-      ((default . error) (SEMICOLON .  1313))
       ((default . error) (BEGIN . (declarative_part_opt . 0)) (USE .  11) (SUBTYPE .  292) (PRAGMA .  7) (NOT .  4) (OVERRIDING .  5) (FUNCTION . (overriding_indicator_opt . 2)) (PROCEDURE . (overriding_indicator_opt . 2)) (ENTRY . (overriding_indicator_opt . 2)) (FOR .  289) (IDENTIFIER .  288) (TYPE .  294) (GENERIC .  2) (PROTECTED .  291) (TASK .  293) (PACKAGE .  290))
       ((default . error) (IDENTIFIER .  48) (CHARACTER_LITERAL .  50) (STRING_LITERAL .  49) (PLUS .  144) (MINUS .  143) (ABS .  146) (NOT .  758) (NULL .  150) (NEW .  148) (LEFT_PAREN .  147))
       ((default . error) (PRIVATE . (task_body . 0)) (END . (task_body . 0)) (BEGIN . (task_body . 0)) (IDENTIFIER . (task_body . 0)) (ENTRY . (task_body . 0)) (FOR . (task_body . 0)) (FUNCTION . (task_body . 0)) (GENERIC . (task_body . 0)) (NOT . (task_body . 0)) (OVERRIDING . (task_body . 0)) (PACKAGE . (task_body . 0)) (PRAGMA . (task_body . 0)) (PROCEDURE . (task_body . 0)) (PROTECTED . (task_body . 0)) (SUBTYPE . (task_body . 0)) (TASK . (task_body . 0)) (TYPE . (task_body . 0)) (USE . (task_body . 0)) ($EOI . (task_body . 0)) (LIMITED . (task_body . 0)) (SEPARATE . (task_body . 0)) (WITH . (task_body . 0)))
       ((default . error) (THEN . (accept_statement . 0)) (WHEN . (accept_statement . 0)) (EXCEPTION . (accept_statement . 0)) (ELSIF . (accept_statement . 0)) (ELSE . (accept_statement . 0)) (OR . (accept_statement . 0)) (END . (accept_statement . 0)) (LESS_LESS . (accept_statement . 0)) (IDENTIFIER . (accept_statement . 0)) (STRING_LITERAL . (accept_statement . 0)) (CHARACTER_LITERAL . (accept_statement . 0)) (ACCEPT . (accept_statement . 0)) (ABORT . (accept_statement . 0)) (BEGIN . (accept_statement . 0)) (CASE . (accept_statement . 0)) (DECLARE . (accept_statement . 0)) (DELAY . (accept_statement . 0)) (EXIT . (accept_statement . 0)) (FOR . (accept_statement . 0)) (GOTO . (accept_statement . 0)) (IF . (accept_statement . 0)) (LOOP . (accept_statement . 0)) (NULL . (accept_statement . 0)) (PRAGMA . (accept_statement . 0)) (RAISE . (accept_statement . 0)) (REQUEUE . (accept_statement . 0)) (RETURN . (accept_statement . 0)) (SELECT . (accept_statement . 0)) (WHILE . (accept_statement . 0)))
       ((default . error) (OR . (if_statement . 2)) (THEN . (if_statement . 2)) (WHEN . (if_statement . 2)) (EXCEPTION . (if_statement . 2)) (END . (if_statement . 2)) (LESS_LESS . (if_statement . 2)) (IDENTIFIER . (if_statement . 2)) (STRING_LITERAL . (if_statement . 2)) (CHARACTER_LITERAL . (if_statement . 2)) (ACCEPT . (if_statement . 2)) (ABORT . (if_statement . 2)) (BEGIN . (if_statement . 2)) (CASE . (if_statement . 2)) (DECLARE . (if_statement . 2)) (DELAY . (if_statement . 2)) (EXIT . (if_statement . 2)) (FOR . (if_statement . 2)) (GOTO . (if_statement . 2)) (IF . (if_statement . 2)) (LOOP . (if_statement . 2)) (NULL . (if_statement . 2)) (PRAGMA . (if_statement . 2)) (RAISE . (if_statement . 2)) (REQUEUE . (if_statement . 2)) (RETURN . (if_statement . 2)) (SELECT . (if_statement . 2)) (WHILE . (if_statement . 2)) (ELSE . (if_statement . 2)) (ELSIF . (if_statement . 2)))
-      ((default . error) (SEMICOLON .  1310))
+      ((default . error) (SEMICOLON .  1311))
       ((default . error) (WHEN . (if_statement . 0)) (THEN . (if_statement . 0)) (OR . (if_statement . 0)) (ELSIF . (if_statement . 0)) (ELSE . (if_statement . 0)) (WHILE . (if_statement . 0)) (SELECT . (if_statement . 0)) (RETURN . (if_statement . 0)) (REQUEUE . (if_statement . 0)) (RAISE . (if_statement . 0)) (PRAGMA . (if_statement . 0)) (NULL . (if_statement . 0)) (LOOP . (if_statement . 0)) (IF . (if_statement . 0)) (GOTO . (if_statement . 0)) (FOR . (if_statement . 0)) (EXIT . (if_statement . 0)) (DELAY . (if_statement . 0)) (DECLARE . (if_statement . 0)) (CASE . (if_statement . 0)) (BEGIN . (if_statement . 0)) (ABORT . (if_statement . 0)) (ACCEPT . (if_statement . 0)) (CHARACTER_LITERAL . (if_statement . 0)) (STRING_LITERAL . (if_statement . 0)) (IDENTIFIER . (if_statement . 0)) (LESS_LESS . (if_statement . 0)) (END . (if_statement . 0)) (EXCEPTION . (if_statement . 0)))
-      ((default . error) (RIGHT_PAREN .  1320))
-      ((default . error) (BEGIN .  1319))
+      ((default . error) (RIGHT_PAREN .  1321))
+      ((default . error) (BEGIN .  1320))
       ((default . error) (BEGIN . (private_extension_declaration . 0)) (IDENTIFIER . (private_extension_declaration . 0)) (ENTRY . (private_extension_declaration . 0)) (FOR . (private_extension_declaration . 0)) (FUNCTION . (private_extension_declaration . 0)) (GENERIC . (private_extension_declaration . 0)) (NOT . (private_extension_declaration . 0)) (OVERRIDING . (private_extension_declaration . 0)) (PACKAGE . (private_extension_declaration . 0)) (PRAGMA . (private_extension_declaration . 0)) (PROCEDURE . (private_extension_declaration . 0)) (PROTECTED . (private_extension_declaration . 0)) (SUBTYPE . (private_extension_declaration . 0)) (TASK . (private_extension_declaration . 0)) (TYPE . (private_extension_declaration . 0)) (USE . (private_extension_declaration . 0)) (PRIVATE . (private_extension_declaration . 0)) (END . (private_extension_declaration . 0)))
       ((default . error) (WHEN . (variant_part . 0)) (END . (variant_part . 0)) (CASE . (variant_part . 0)) (IDENTIFIER . (variant_part . 0)) (FOR . (variant_part . 0)))
-      ((default . error) (END . (variant . 0)) (WHEN . (variant . 0)) (CASE .  1008) (IDENTIFIER .  72) (FOR .  289))
+      ((default . error) (END . (variant . 0)) (WHEN . (variant . 0)))
       ((default . error) (WHEN . (component_declaration . 0)) (END . (component_declaration . 0)) (CASE . (component_declaration . 0)) (IDENTIFIER . (component_declaration . 0)) (FOR . (component_declaration . 0)))
-      ((default . error) (SEMICOLON .  1318))
+      ((default . error) (SEMICOLON .  1319))
       ((default . error) (END . (component_clause . 0)) (IDENTIFIER . (component_clause . 0)))
       ((default . error) (END . (sequence_of_statements_opt . 0)) (EXCEPTION . (sequence_of_statements_opt . 0)) (ACCEPT . (label_opt . 0)) (BEGIN . (label_opt . 0)) (CASE . (label_opt . 0)) (DECLARE . (label_opt . 0)) (FOR . (label_opt . 0)) (IF . (label_opt . 0)) (LOOP . (label_opt . 0)) (RETURN . (label_opt . 0)) (SELECT . (label_opt . 0)) (WHILE . (label_opt . 0)) (STRING_LITERAL . (label_opt . 0)) (CHARACTER_LITERAL . (label_opt . 0)) (ABORT . (label_opt . 0)) (DELAY . (label_opt . 0)) (EXIT . (label_opt . 0)) (GOTO . (label_opt . 0)) (NULL . (label_opt . 0)) (PRAGMA . (label_opt . 0)) (RAISE . (label_opt . 0)) (REQUEUE . (label_opt . 0)) (LESS_LESS .  611) (IDENTIFIER . ((label_opt . 0)  612)))
       ((default . error) (WHEN . (parameter_profile_opt . 0)) (LEFT_PAREN .  782))
       ((default . error) (WHEN . (entry_body_formal_part . 0)))
-      ((default . error) (END .  1323))
+      ((default . error) (END .  1324))
       ((default . error) (SEMICOLON . (identifier_opt . 0)) (IDENTIFIER .  695))
-      ((default . error) (SEMICOLON .  1325))
+      ((default . error) (SEMICOLON .  1326))
       ((default . error) (PROCEDURE . (entry_body . 0)) (OVERRIDING . (entry_body . 0)) (NOT . (entry_body . 0)) (FUNCTION . (entry_body . 0)) (FOR . (entry_body . 0)) (ENTRY . (entry_body . 0)) (END . (entry_body . 0)))]
      [((compilation_unit . 13)(compilation_unit_list . 14)(context_item . 15)(function_specification . 16)(generic_declaration . 17)(generic_formal_part . 18)(generic_instantiation . 19)(generic_package_declaration . 20)(generic_renaming_declaration . 21)(generic_subprogram_declaration . 22)(library_item . 23)(library_unit_declaration . 24)(library_unit_renaming_declaration . 25)(overriding_indicator_opt . 26)(package_body . 27)(package_declaration . 28)(package_renaming_declaration . 29)(package_specification . 30)(pragma . 31)(procedure_specification . 32)(subprogram_body . 33)(subprogram_declaration . 34)(subprogram_renaming_declaration . 35)(subunit . 36)(use_clause . 37)(with_clause . 38))
       ((attribute_reference . 51)(name . 86)(qualified_expression . 54)(selected_component . 55))
       nil
       nil
       nil
-      ((accept_statement . 1162)(delay_alternative . 1163)(delay_statement . 945))
+      ((accept_statement . 1163)(delay_alternative . 1164)(delay_statement . 945))
       nil
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1159)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1160)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
       nil
       nil
       nil
       nil
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1155)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
-      ((constant_opt . 1154))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1156)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((constant_opt . 1155))
       nil
       nil
       nil
-      ((identifier_opt . 1150))
-      ((elsif_statement_item . 1148)(elsif_statement_list . 1149))
+      ((identifier_opt . 1151))
+      ((elsif_statement_item . 1149)(elsif_statement_list . 1150))
       nil
       nil
       nil
-      ((aggregate . 151)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 1142)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(selected_component . 55)(simple_expression . 459)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 1143)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(selected_component . 55)(simple_expression . 459)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
-      ((case_statement_alternative . 1141))
+      ((case_statement_alternative . 1142))
       nil
       nil
       nil
       nil
       nil
       nil
-      ((function_specification . 16)(procedure_specification . 32)(subprogram_specification . 1134))
+      ((function_specification . 16)(procedure_specification . 32)(subprogram_specification . 1135))
       nil
-      ((aspect_clause . 967)(at_clause . 297)(entry_body . 968)(enumeration_representation_clause . 304)(function_specification . 16)(overriding_indicator_opt . 969)(procedure_specification . 32)(protected_operation_item . 1133)(record_representation_clause . 328)(subprogram_body . 973)(subprogram_declaration . 974))
+      ((aspect_clause . 967)(at_clause . 297)(entry_body . 968)(enumeration_representation_clause . 304)(function_specification . 16)(overriding_indicator_opt . 969)(procedure_specification . 32)(protected_operation_item . 1134)(record_representation_clause . 328)(subprogram_body . 973)(subprogram_declaration . 974))
       nil
       nil
       nil
-      ((aggregate . 151)(attribute_reference . 51)(expression . 1131)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 1132)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
       nil
       nil
-      ((attribute_reference . 51)(name . 1129)(qualified_expression . 54)(selected_component . 55))
+      ((attribute_reference . 51)(name . 1130)(qualified_expression . 54)(selected_component . 55))
       nil
       ((actual_parameter_part . 91))
-      ((aggregate . 151)(attribute_reference . 51)(expression . 1127)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 1128)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
       nil
-      ((formal_part . 116)(parameter_profile_opt . 1125))
+      ((formal_part . 116)(parameter_profile_opt . 1126))
       nil
       nil
       nil
       nil
       nil
       nil
-      ((aggregate . 151)(attribute_reference . 51)(expression . 1124)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 1125)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
-      ((aggregate . 151)(attribute_reference . 51)(expression . 1122)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 1123)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
-      ((aggregate . 151)(attribute_reference . 51)(expression . 1120)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 1121)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
       ((attribute_reference . 51)(name . 1034)(qualified_expression . 54)(selected_component . 55))
       nil
       nil
-      ((aspect_specification_opt . 1117))
+      ((aspect_specification_opt . 1118))
       nil
-      ((attribute_reference . 51)(name . 1116)(qualified_expression . 54)(selected_component . 55))
-      ((attribute_reference . 51)(name . 737)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1115))
+      ((attribute_reference . 51)(name . 1117)(qualified_expression . 54)(selected_component . 55))
+      ((attribute_reference . 51)(name . 737)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1116))
       nil
-      ((direct_name . 1114))
+      ((direct_name . 1114)(direct_name_opt . 1115))
       nil
       nil
       nil
       nil
       ((actual_parameter_part . 91))
       nil
-      ((attribute_reference . 51)(name . 1231)(qualified_expression . 54)(selected_component . 55))
+      ((attribute_reference . 51)(name . 1232)(qualified_expression . 54)(selected_component . 55))
       nil
-      ((access_definition . 1229)(attribute_reference . 51)(name . 737)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1230))
+      ((access_definition . 1230)(attribute_reference . 51)(name . 737)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1231))
       nil
       nil
       nil
       nil
       nil
       nil
-      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1225)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1226)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
-      ((attribute_reference . 51)(interface_list . 1224)(name . 798)(qualified_expression . 54)(selected_component . 55))
+      ((attribute_reference . 51)(interface_list . 1225)(name . 798)(qualified_expression . 54)(selected_component . 55))
       nil
       nil
-      ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 830)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_definition . 1222)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341))
+      ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 830)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_definition . 1223)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341))
       nil
       nil
       nil
-      ((attribute_reference . 51)(interface_list . 1220)(name . 798)(qualified_expression . 54)(selected_component . 55))
+      ((attribute_reference . 51)(interface_list . 1221)(name . 798)(qualified_expression . 54)(selected_component . 55))
       nil
       nil
-      ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 838)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_definition . 1218)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341))
+      ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 838)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_definition . 1219)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341))
       nil
       nil
-      ((aggregate . 151)(attribute_reference . 51)(expression . 1216)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
-      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1215)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 1217)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1216)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
       nil
-      ((enumeration_literal . 1214))
+      ((enumeration_literal . 1215))
       nil
-      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1213)(term . 165)(term_list . 166)(unary_adding_operator . 167))
-      ((access_definition . 1075)(attribute_reference . 51)(component_definition . 1212)(name . 737)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1077))
+      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1214)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((access_definition . 1075)(attribute_reference . 51)(component_definition . 1213)(name . 737)(null_exclusion_opt . 212)(qualified_expression . 54)(selected_component . 55)(subtype_indication . 1077))
       nil
       nil
       nil
       nil
       nil
       nil
-      ((and_interface_list_opt . 1209))
-      ((actual_parameter_part . 91)(and_interface_list_opt . 1206)(constraint . 1207)(constraint_opt . 1208)(index_constraint . 806))
       nil
+      ((and_interface_list_opt . 1210))
+      ((actual_parameter_part . 91)(and_interface_list_opt . 1207)(constraint . 1208)(constraint_opt . 1209)(index_constraint . 806))
       nil
       nil
+      nil
+      ((aspect_specification_opt . 1204))
+      nil
       ((aspect_specification_opt . 1203))
       nil
       ((aspect_specification_opt . 1202))
-      nil
       ((aspect_specification_opt . 1201))
-      ((aspect_specification_opt . 1200))
       nil
       nil
-      ((attribute_reference . 51)(name . 1199)(qualified_expression . 54)(selected_component . 55))
+      ((attribute_reference . 51)(name . 1200)(qualified_expression . 54)(selected_component . 55))
       ((actual_parameter_part . 91))
-      ((aggregate . 151)(attribute_reference . 51)(expression . 1198)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 1199)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
-      ((identifier_opt . 1197))
+      ((identifier_opt . 1198))
       nil
       ((aspect_specification_opt . 128))
-      ((entry_body_formal_part . 1195)(formal_part . 116)(parameter_profile_opt . 1196))
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(handled_sequence_of_statements . 1193)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 652)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((entry_body_formal_part . 1196)(formal_part . 116)(parameter_profile_opt . 1197))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(handled_sequence_of_statements . 1194)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 652)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
       nil
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(handled_sequence_of_statements . 1192)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 652)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(handled_sequence_of_statements . 1193)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 652)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
       nil
       nil
       nil
       nil
-      ((identifier_opt . 1189))
+      ((identifier_opt . 1190))
       nil
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1188)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
-      ((aggregate . 151)(attribute_reference . 51)(expression . 184)(expression_opt . 1187)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1189)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 184)(expression_opt . 1188)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
       nil
-      ((elsif_statement_item . 1185))
+      ((elsif_statement_item . 1186))
       nil
       nil
       nil
       nil
-      ((access_definition . 1178)(attribute_reference . 51)(name . 737)(null_exclusion_opt . 212)(qualified_expression . 54)(return_subtype_indication . 1179)(selected_component . 55)(subtype_indication . 1180))
+      ((access_definition . 1179)(attribute_reference . 51)(name . 737)(null_exclusion_opt . 212)(qualified_expression . 54)(return_subtype_indication . 1180)(selected_component . 55)(subtype_indication . 1181))
       nil
       nil
       nil
       nil
       nil
       nil
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1172)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1173)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
       nil
-      ((identifier_opt . 1171))
-      ((attribute_reference . 51)(exception_choice . 1170)(name . 939)(qualified_expression . 54)(selected_component . 55))
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1169)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
-      ((attribute_reference . 51)(exception_choice . 937)(exception_choice_list . 1168)(name . 939)(qualified_expression . 54)(selected_component . 55))
+      ((identifier_opt . 1172))
+      ((attribute_reference . 51)(exception_choice . 1171)(name . 939)(qualified_expression . 54)(selected_component . 55))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1170)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((attribute_reference . 51)(exception_choice . 937)(exception_choice_list . 1169)(name . 939)(qualified_expression . 54)(selected_component . 55))
       nil
       nil
       nil
       nil
       nil
       nil
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1266)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1267)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
       nil
       nil
       nil
       nil
       nil
       nil
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1260)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1261)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
       nil
       nil
       nil
       nil
       nil
       nil
-      ((attribute_reference . 51)(interface_list . 1249)(name . 798)(qualified_expression . 54)(selected_component . 55))
+      ((attribute_reference . 51)(interface_list . 1250)(name . 798)(qualified_expression . 54)(selected_component . 55))
       nil
       nil
       nil
       nil
-      ((variant_list . 1245)(variant . 1246))
+      ((variant_list . 1246)(variant . 1247))
       nil
-      ((aspect_specification_opt . 1243))
+      ((aspect_specification_opt . 1244))
       nil
       nil
       nil
-      ((real_range_specification_opt . 1240))
-      ((identifier_opt . 1239))
+      ((real_range_specification_opt . 1241))
+      ((identifier_opt . 1240))
       nil
       nil
       nil
-      ((identifier_opt . 1236))
+      ((identifier_opt . 1237))
       nil
       nil
       nil
       nil
       ((actual_parameter_part . 91)(constraint . 1093)(index_constraint . 806))
       nil
-      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1296)(term . 165)(term_list . 166)(unary_adding_operator . 167))
-      ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 830)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_definition . 1295)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341))
+      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1297)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 830)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_definition . 1296)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341))
       nil
       nil
-      ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 838)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_definition . 1294)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341))
+      ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 838)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_definition . 1295)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341))
       nil
       nil
       nil
-      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1293)(term . 165)(term_list . 166)(unary_adding_operator . 167))
-      ((aggregate . 151)(attribute_reference . 51)(expression . 1292)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1294)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 1293)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
-      ((aggregate . 151)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 1290)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(selected_component . 55)(simple_expression . 459)(term . 165)(term_list . 166)(unary_adding_operator . 167))
-      ((variant . 1289))
+      ((aggregate . 151)(attribute_reference . 51)(choice_expression . 175)(choice_relation_and_list . 176)(choice_relation_or_list . 177)(choice_relation_xor_list . 178)(choice_relation_and_then_list . 179)(choice_relation_or_else_list . 180)(choice_relation . 181)(discrete_choice . 182)(discrete_choice_list . 1291)(factor . 153)(name . 186)(primary . 157)(qualified_expression . 54)(range . 187)(selected_component . 55)(simple_expression . 459)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((variant . 1290))
       nil
       nil
-      ((record_definition . 1286))
+      ((record_definition . 1287))
       nil
       nil
       nil
       nil
       nil
       nil
-      ((aggregate . 151)(attribute_reference . 51)(expression . 184)(expression_opt . 1285)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 184)(expression_opt . 1286)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
+      ((identifier_opt . 1284))
       ((identifier_opt . 1283))
-      ((identifier_opt . 1282))
       nil
       nil
       nil
       nil
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1280)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1281)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
       nil
       nil
       nil
       nil
-      ((aggregate . 151)(attribute_reference . 51)(expression . 1277)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(expression . 1278)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(relation_and_list . 158)(relation_and_then_list . 159)(relation_or_list . 160)(relation_or_else_list . 161)(relation_xor_list . 162)(relation . 163)(selected_component . 55)(simple_expression . 164)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
       nil
       nil
       nil
       nil
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1275)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 1276)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
       nil
       nil
       nil
       nil
       nil
       nil
-      ((aspect_specification_opt . 1303))
+      ((aspect_specification_opt . 1304))
       nil
       nil
       nil
       nil
-      ((aspect_specification_opt . 1300))
+      ((aspect_specification_opt . 1301))
       nil
       nil
       nil
       nil
-      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1317)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((aggregate . 151)(attribute_reference . 51)(factor . 153)(name . 154)(primary . 157)(qualified_expression . 54)(selected_component . 55)(simple_expression . 1318)(term . 165)(term_list . 166)(unary_adding_operator . 167))
       nil
       nil
       nil
-      ((aspect_clause . 1010)(at_clause . 297)(component_declaration . 1011)(component_item . 1012)(component_list . 1315)(enumeration_representation_clause . 304)(identifier_list . 1015)(record_representation_clause . 328)(variant_part . 1016))
+      ((aspect_clause . 1010)(at_clause . 297)(component_declaration . 1011)(component_item . 1012)(component_list . 1013)(component_list_opt . 1316)(enumeration_representation_clause . 304)(identifier_list . 1015)(record_representation_clause . 328)(variant_part . 1016))
       nil
       nil
-      ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 1312)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341))
-      ((aggregate . 151)(attribute_reference . 51)(discrete_subtype_definition . 1311)(factor . 153)(name . 875)(primary . 157)(qualified_expression . 54)(range . 764)(selected_component . 55)(simple_expression . 765)(subtype_indication . 766)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      ((abstract_subprogram_declaration . 295)(aspect_clause . 296)(at_clause . 297)(body . 298)(body_stub . 299)(declaration . 300)(declarations . 301)(declarative_part_opt . 1313)(entry_declaration . 303)(enumeration_representation_clause . 304)(exception_declaration . 305)(expression_function_declaration . 306)(full_type_declaration . 307)(function_specification . 16)(generic_declaration . 308)(generic_formal_part . 18)(generic_instantiation . 309)(generic_package_declaration . 20)(generic_renaming_declaration . 310)(generic_subprogram_declaration . 22)(identifier_list . 311)(incomplete_type_declaration . 312)(null_procedure_declaration . 313)(object_declaration . 314)(object_renaming_declaration . 315)(overriding_indicator_opt . 316)(package_body . 317)(package_body_stub . 318)(package_declaration . 319)(package_renaming_declaration . 320)(package_specification . 30)(pragma . 321)(private_extension_declaration . 322)(private_type_declaration . 323)(procedure_specification . 32)(proper_body . 324)(protected_body . 325)(protected_body_stub . 326)(protected_type_declaration . 327)(record_representation_clause . 328)(renaming_declaration . 329)(single_protected_declaration . 330)(single_task_declaration . 331)(subprogram_body . 332)(subprogram_body_stub . 333)(subprogram_declaration . 334)(subprogram_renaming_declaration . 335)(subtype_declaration . 336)(task_body . 337)(task_body_stub . 338)(task_type_declaration . 339)(type_declaration . 340)(use_clause . 341))
+      ((aggregate . 151)(attribute_reference . 51)(discrete_subtype_definition . 1312)(factor . 153)(name . 875)(primary . 157)(qualified_expression . 54)(range . 764)(selected_component . 55)(simple_expression . 765)(subtype_indication . 766)(term . 165)(term_list . 166)(unary_adding_operator . 167))
+      nil
       nil
       nil
       nil
       nil
       nil
       nil
-      ((aspect_clause . 1010)(at_clause . 297)(component_declaration . 1011)(component_item . 1109)(enumeration_representation_clause . 304)(identifier_list . 1015)(record_representation_clause . 328)(variant_part . 1110))
       nil
       nil
       nil
-      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(handled_sequence_of_statements . 1322)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 652)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
-      ((formal_part . 116)(parameter_profile_opt . 1321))
+      ((accept_statement . 630)(assignment_statement . 631)(asynchronous_select . 632)(attribute_reference . 51)(block_statement . 633)(case_statement . 634)(conditional_entry_call . 635)(delay_statement . 636)(exit_statement . 637)(extended_return_statement . 638)(handled_sequence_of_statements . 1323)(if_statement . 640)(iteration_scheme . 641)(label_opt . 642)(loop_statement . 643)(name . 644)(pragma . 645)(procedure_call_statement . 646)(qualified_expression . 54)(raise_statement . 647)(requeue_statement . 648)(selected_component . 55)(selective_accept . 649)(select_statement . 650)(sequence_of_statements . 651)(sequence_of_statements_opt . 652)(simple_return_statement . 653)(statement . 654)(timed_entry_call . 655))
+      ((formal_part . 116)(parameter_profile_opt . 1322))
       nil
       nil
-      ((identifier_opt . 1324))
+      ((identifier_opt . 1325))
       nil
       nil]))
   "Parser table.")